Salário com desconto do INSS e mostrando FGTS

Quero calcular o salário do meu empregado na loja, só que quero colocar o salario bruto,
descontando 6% do Inss e mostrando o fgts que é de 8%, quero um programa que mostre o nome do
funcionario, o valor do inss, o valor do fgts,s e o salario já descontado o valor do inss.

program descontos;

var salario, inss, fgts, salario_desc: real;
    nome :string[30];



begin

   write('Nome do funcionario=');
   readln(nome);
   write('salario=');
   readln(salario);
   inss :=(salario *6)/100;
   fgts :=(salario *8)/100;
   salario_desc :=(salario - inss);
   writeln('Nome do funcionario....=',nome);
   writeln('salario................=',salario:6:2);
   writeln('valor do inss..........=',   inss:6:2);
   writeln('salario descontado inss=',salario_desc:6:2);
   writeln;
   writeln;
   writeln('valor do fgts..........=',   fgts:6:2);
   readln();
end.

Vendas com salário e comissão variável.

Nesse exemplo ao final do dia verei quanto o vendedor ganhará, baseado no salário individual de cada e de comissão
individual, mostrando o salario, a comissão, quantidade de vendas e o total a receber.

program salario_variavel;

var salario, vendas, bonus, comissao, salario_total: real;


begin

   write('Salario=');
   readln(salario);
   write('porcentagem da comissao=');
   readln(bonus);
   write('Vendas=');
   readln(vendas);
   comissao:= (salario * bonus)/100 * vendas;
   salario_total:=(comissao + salario);
   writeln('Salario fixo........=',salario:6:0);
   writeln('Quantidade de vendas=',vendas:6:0 );
   writeln('comissao............=', comissao:6:2);
   writeln('salario total.......=', salario_total:6:2);
   readln();
end.
  

Vendas mostrando salário e comissão fixa e com vendas variáveis.

Estou pretendendo fornecer salgados feitos por minha mamãe em mercados, mas vou contratar um vendedor, de ínicio  pagarei a ele um sálario fixo de R$510,00, mais uma comissão de 0.10%(1 décimo de real) do valor total de vendas no mês, quero um programa que me mostre o salario fixo, quantidade de vendas, o valor da comissão e o salario total do vendedor no fim do mês.

program salgados_vendas;

var salario, vendas, comissao, salario_total: real;


begin
   salario := 510;
   write('Vendas=');
   readln(vendas);
   comissao:= (salario * 0.10)/100 * vendas;
   salario_total:=(comissao + salario);
   writeln('Salario fixo........=',salario:6:0,' unidade');
   writeln('Quantidade de vendas=',vendas:6:0 );
   writeln('comissao............=', comissao:6:2,' 0.10%');
   writeln('salario total.......=', salario_total:6:2);
   readln();

end.
 

Saldo simples

Todo  mês pago adiantado ao João da padaria R$250,00 para minha esposa e filhos
comprarem durante o mês, porem vou fazer para ele um programa simples
para controlar meu saldo. mostrando o valor que foi comprado e saldo remanescente na tela

program saldo_padaria;

var saldo, compras: real;

begin
  
    saldo:=250;
    write('Valor da compra=');
    readln(compras);
    saldo := (saldo - compras);
 
    writeln('Seu saldo agora=', saldo);
    readln();

end.

Média final com notas de pesos diferentes

{Fiz a prova do concurso do INSS, eram 3 matérias, português, matemática financeira, e
a matéria especifica do INSS, porém português tinha peso 2, matemática peso 3, e a materia
do INSS tinha peso 5, quero fazer um programa que mostre o nome do aluno, calcule minha média final do concurso.}


program concurso;

Var port, matem, inss, media: real;
    nome: string[30];
begin
    write('Nome=');
    readln(nome);
    write('Digite a nota de portugues.=');
    readln(port);
    write('Digite a nota de matematica=');
    readln(matem);
    write('Digite a nota do INSS......=');
    readln(inss);

    port := port * 2 /10;
    matem := matem *3 /10;
    inss := inss *5 /10;
    media :=(port + matem+ inss);

    writeln('Meu nome..............::: ', nome);
    writeln('Minha media final foi.::: ', media:3:2);
    readln();

end.

{Notem que para a variável nome, foi do tipo string, e as outras do tipo real.
Tipos de dados nas variáveis, os 3 mais usados são;
inteiro: armazena números inteiros(não fracionados), ex= 5, 2, 4, 1254, 1054 etc.
real: armazena numeros inteiros e fracionados, ex= 5, 2, (5,2),(2,5), 5/2, 2/5, 6,99999, etc.
string: armazena letras e números e a quantidade é definidas entre[] como acima que foi [30]assim poderemos colocar uma palavra de até 30 caracteres,
OBS: em outras linguagens o nome pode modificar}
{Notem também que para comentar no seuprograma, usasse // para textos curtos ou {} para blocos de textos}.

Calcular porcentagem com todos os valores indefinidos

{Agora vamos ver o mesmo exemplo só que com todos os valores
definido pelo lojista}

program porcentagem;

var notebook, vendedor, imposto, preco_final: real;

begin
    write('Digite do notebook........=');
    readln(notebook);
    write('O valor do imposto........=');
    readln(imposto);
    write('Percentual do vendedor....=');
    readln(vendedor);
    vendedor :=(notebook /100) * vendedor;
    imposto :=(notebook / 100)* imposto;
    preco_final :=(notebook + vendedor + imposto);
    writeln('O valor do notebook........=',notebook:6:2);
    writeln('A porcentagem do vendedor..=',vendedor:6:2);
    writeln('O valor do do imposto......=',imposto:6:2);
    writeln('o valor final..............=',preco_final:6:2);
    readln();

end.

Calcular porcentagem e seus valores indefinidos

{Agora vamos ver o mesmo exemplo só que com o valor do notebook e do imposto
definido pelo lojista e a porcentagem de 5% do vendedor fixa}
__________________________________________________________________________________
program porcentagem_variavel;

var notebook, vendedor, imposto, preco_final: real;

begin
    write('Digite do notebook........=');
    readln(notebook);
    write('O valor do imposto........=');
    readln(imposto);
    vendedor :=(notebook * 5)/ 100;
    imposto :=(notebook / 100)* imposto;
    preco_final :=(notebook + vendedor + imposto);
    writeln('O valor do notebook........=',notebook:6:2);
    writeln('A porcentagem do vendedor..=',vendedor:6:2);
    writeln('O valor do do imposto..=',imposto:6:2);
    writeln('o valor final........=',preco_final:6:2);
    readln();

end.