Exercicios Pascal FOR

//exercicio 1


Program pzin;
Var n : string;
    a : Real;
    contador : integer;
Begin
    FOR contador := 1 to 3 do
    Begin
        writeln('Digite o nome do jogador');
        read(n);
        writeln('Digite a altura do jogador');
        read(a);
        if (a>=1.95) then
        writeln('VOCÊ JOGARÁ BASQUETE')
        else
        writeln('VOCÊ JOGARÁ VOLEI');

        writeln('JOGADOR: ',n);

     End;
End.

//exercicio 2



Program pzin;
Var n : string;
    s, total: Real;
    contador : integer;
Begin
    FOR contador := 1 to 3 do
    Begin
        writeln('Digite o nome do Funcionário');
        read(n);
        writeln('Digite o salário do funcionário');
        read(s);

        if (s>=2000.00) then
        total:=s+(s*10/100)
        else
        total:=s+(s*20/100);

        writeln('Nome do Funcionário: ',n);
        writeln('Salário Reajustado: R$', total);

     End;
End.

//exercicio 3


Program pzin;
Var n : string;
    s, total: Real;
    contador : integer;
Begin
    FOR contador := 1 to 3 do
    Begin
        writeln('Digite o nome do Funcionário');
        read(n);
        writeln('Digite o salário do funcionário');
        read(s);

        if (s>=2000.00) then
        total:=s+100
        else
        total:=s+200;

        writeln('Nome do Funcionário: ',n);
        writeln('Salário Reajustado: R$', total:0:2);

     End;
End.

//exercicio 4

Program pzin;
Var l,contador : integer;
Begin
    FOR contador := 1 to 3 do
    Begin
        writeln('Digite a quantidade de lados da forma geométrica');
        read(l);

        if (l=3) then
        writeln('Isso é um triangulo')
        else
        if (l=4)then
        writeln('Isso é um quadrado')
        else
        writeln('Forma Geométrica não definida');

     End;
End.

//exercicio 5

//exercicio 3
Program pzin;
Var contador : integer;
Var n : string;
    s,total : real;
Begin
    FOR contador := 1 to 3 do
    Begin
        writeln('Digite o nome do Funcionário');
        read(n);
        writeln('Digite o Salário');
        read(s);

        if (s>=3000.00) then
        total:=s+(s*10/100)-(s*5/100)
        else
        total:=s+(s*20/100)-(s*5/100);
        writeln('O nome do funcionário é', n);
        writeln('O novo salário é', total);
     End;
End.