ejercicio

[jefferson]

hola.
si claro amigo a eso me refiero

es que en turbo pascal seria asi:

if (correo<>yahoo.es)or(correo<>hotmail.com)or(correo<>gmail.com)then
begin
writeln('este correo no es valido');
end
else
begin
writeln('correo valido');
end;
end.


pero en delphi nose cambios habrian. bye.