registro

program cadastro;
type
funcionario = record
nome   : string[40];
idade  : integer;
funcao : string[30];
salario: real;
end;
var funcionarioUFES, funcionarioPETROBRAS : funcionario;
begin
     //lendo a variavel tipo funconario
     writeln('Digite o nome do funcionario');
     readln(funcionarioUFES.nome);

     writeln('Digite a idade do funcionario');
     readln(funcionarioUFES.idade);

     writeln('Digite a funcao do funcionario');
     readln(funcionarioUFES.funcao);

     writeln('Digite o salario do funcionario');
     readln(funcionarioUFES.salario);

     //mostrando na tela

     writeln('');
     writeln(funcionarioUFES.nome);
     writeln(funcionarioUFES.idade);
     writeln(funcionarioUFES.funcao);
     writeln (funcionarioUFES.salario:10:2);

     //Pause
     readln();
     //funcionario petrobras
      writeln('Digite o nome do funcionario');
     readln(funcionarioPETROBRAS.nome);

     writeln('Digite a idade do funcionario');
     readln(funcionarioPETROBRAS.idade);

     writeln('Digite a funcao do funcionario');
     readln(funcionarioPETROBRAS.funcao);

     writeln('Digite o salario do funcionario');
     readln(funcionarioPETROBRAS.salario);
     //mostrando na tela
     writeln('');
     writeln(funcionarioPETROBRAS.nome);
     writeln(funcionarioPETROBRAS.idade);
     writeln(funcionarioPETROBRAS.funcao);
     writeln (funcionarioPETROBRAS.salario:10:2);

     if funcionarioPETROBRAS.salario > funcionarioUFES.salario then
     begin
     writeln('maior salario e do funciorio ',funcionarioPETROBRAS.nome,' que recebe',funcionarioPETROBRAS.salario:10:2);
     end
     else
     writeln('maior salario e do funciorio ',funcionarioUFES.nome,' que recebe',funcionarioUFES.salario:10:2);
     readln();

end.