Exercicio 1

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program exercicio1 ;
var
 nome1, nome2, nome_maior: string[15];
 idade1, idade2, idade_maior: integer;
Begin
 write('Digite o primeiro nome:');read(nome1);
 write('Idade:');read(idade1);
 write('Digite o segundo nome:');read(nome2);
 write('Idade:');read(idade2);
 if (idade1 > idade2) then begin
 nome_maior:= nome1;
 idade_maior:= idade1;
 end
 else begin
 nome_maior:= nome2;
 idade_maior:= idade2;
 end;
 write(nome_maior, ' tem a maior idade, com ', idade_maior, ' anos.');
End.