Program Exe10;
var
  Nome : String[30];
  Prof : String[5];
  Idade : Byte;
  Salario : Real;
begin
  Nome := 'João da Silva';
  Prof := 'PR001';
  Idade := 40;
  Salario := 1250.35;
end.