Pascal/Variáveis Compostas Homogêneas Multidimensionais
Aspeto
< Pascal
programa feito Por Victor Martins
program aparecenome;
var
Nome1 , Nome2 : string;
n1 , n2 : integer;
begin
write('informe os nomes desejados ');
writeln;
readln(nome1);
writeln ('e') ;
readln (nome2);
writeln;
writeln('Agora informe a idade do ',nome1 );
readln (n1);
writeln;
writeln('Agora informe a idade do ',nome2 );
readln (n2);
writeln;
writeln;
writeln ( 'Seu nome e ', nome1 ,' e voce tem ' , n1 , ' anos de idade ' ) ;
write ( 'e ', nome2 ,' tem ' , n2 , ' anos de idade ' ) ;
readln;
readln;
end.