Estoy de acuerdo Simorg. Vale la pena tener el certificado.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
program EJER1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
num1:real;
num2:real;
res:real;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
writeln('PROGRAMA 1');
write('Introduce numero 1: '); read(num1);
write('Introduce numero 2: '); read(num2);
res:=num1+num2;
writeln('El resultado es: ',res:2:2);
if num1>num2 then
begin
writeln('El numero 1 es mayor');
end
else
begin
writeln('El numero 2 es mayor');
end;
readln;
readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.