Program Pzim ;
var nome,limite,condicao:string;
Begin
limite:='s';
Repeat
begin
write('Digite um nome: ');
read(nome);
writeln('Bom dia ',nome);
writeln(' ');
writeln('Para outra saudacao digite S para sair digite N :');
read(condicao);
end;
Until(condicao='N');
writeln('Tchau');
End.
Nenhum comentário:
Postar um comentário