terça-feira, 1 de setembro de 2009

Amor Nerd

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.

3 comentários:

Tiago Paixão disse...

program casarcomig;
uses 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.

Tiago Paixão disse...

e faltou um readkey no final. hehehe

Fê... disse...

Obrigada prima pelo recado no blog!!! beijooo