Program euamo;
uses crt;
var amor: real;
begin
writeln ('Com voce a minha vida fica muito mais feliz');
writeln ('Obrigada por tudo que fazes por mim.');
writeln ('Te amo de montao!!!');
readkey;
end.
--------------------- O site oficial dos Casamentos das três irmãs ---------------------
:O) Elaine Bahlis Moreira e Luiz Angelo Pereira de Lima :O) Fernanda Bahlis Moreira e Leonardo Recondo Azevedo :O) Márcia Bahlis Moreira e Tiago Paixão Pereira :O)
program casarcomig;
ResponderExcluiruses crt;
var
op:integer;
begin
repeat
Begin
writeln ('quer casar comigo?');
delay(2000);
writeln ('para sim digite 1');
writeln ('para não digite 2');
readln('op');
if op=1 then
writeln ('oba')
else
writeln ('resposta errada');
end;
until op=1;
end.
e faltou um readkey no final. hehehe
ResponderExcluirObrigada prima pelo recado no blog!!! beijooo
ResponderExcluir