Program Luis;
Uses Crt;
Var nombre :string;
ano :integer;
begin
clrscr;
write ('');
TextBackground (blue);
TextColor (yellow);
GotoXY (10,6);
writeln ('Rifa de un ps2');
GotoXY (10,8);
writeln ('Complete los siguientes datos para participar');
GotoXY (10,10);
writeln ('Nombre completo:');
GotoXY (10,13);
writeln ('Ano de nacimiento:');
GotoXY (10,11);
readln (nombre);
GotoXY (10,14);
readln (ano);
clrscr;
GotoXY (10,6);
writeln ('Rifa de un ps2');
GotoXY (10,8);
writeln ('Complete los siguientes datos para participar');
GotoXY (10,10);
writeln ('Nombre:',nombre);
GotoXY (10,13);
writeln ('Ano de edad:',2010-ano);
GotoXY (10,15);
writeln ('Estos son sus datos');
GotoXY (10,16);
writeln ('Gracias por participar');
GotoXY (10,18);
writeln ('Pulse ENTER para salir');
readln;
end.