logica de programação

Program percentual_de_salario ;
// algoritmo/programa em Pascal que lê, para cada funcionário, o seu
//número e o seu salário atual e escreve o numero do funcionário, seu salário
//atua1, o percentual de seu aumento e o valor do salário corrigido.

Var

nome_f: string; rg, s_inicio, perct, s_final: real;

Begin clrscr; writeln ('Informe nome do funcionario'); read (nome_f); writeln ('Informe o "RG" do ',nome_f); read (rg); writeln ('Informeo salario atual do ',nome_f); read (s_inicio); if s_inicio =400.01) and (s_inicio700.01) and (s_inicio1000.01) and (s_inicio1800.01) and (s_inicio2500.01) then perct :=0; s_final:=s_inicio+(s_inicio*perct/100);

writeln ('Caro funcionario: ',nome_f); writeln (nome_f, ' Seu Salario é: ',s_inicio); writeln ('O Percentual aplicado foi: ',perct); writeln ('Informamos que o seu salario passa a ser : ',s_final);
End.

Program desconto_em_porcentagem;
//A loja Todo Poderoso Timão está em liquidação, todos os produtos estão com
//30% de desconto faça um algoritmo que calcula o valor de 30% de desconto
//sobre o valor original de um produto. Não esqueça de mostrar esse novo valor. var v_produto, desconto,v_final :real; begin writeln('Digite o Valor do Produto '); readln (v_produto); desconto := (v_produto*30)/100; v_final := v_produto-desconto; writeln('O Novo Valor do Disconto Será ', desconto); writeln('O Valor final do produto Será ', v_final); end. Program numero_negativos
// algoritmo/programa em Pascal que lê um vetor V[6] e o escreve.
//Conte, a seguir quantos valores de V são negativos e escreva esta informação. var i, num, cont: integer;

begin

cont:=0; for i:= 1 to 6 do begin writeln('Informe um valor: '); readln(num); if