Codigo nova materia

//Escreva um programa que LEIA o salário de 150 funcionários de uma
//empresa. SE o salário do funcionário for maior ou igual a R$ 1800.00
//de um aumento de R$ 5%. SENÃO, de um aumento de 10%. com isso,
//CALCULE e MOSTRE o novo salário.

Program ENQUANTO ;
Var salario, novo_salario: real;
    contador: integer;
 Begin
     contador :=0;
     while (contador < 150) do
     begin
     writeln ('Entre com salário');
     read(salario);

     IF (salario >= 1800.00) then
            begin
                novo_salario := salario + (salario * 5/100);
                writeln ('O Novo salario é', novo_salario:0:2);
            end
        ELSE
             begin
                 novo_salario := salario + (salario * 10/100);
                 writeln ('O novo salario é',  novo_salario:0:2);
             end;
             contador := contador +1;
     end;


 End.