Pascal/Turbo Pascal - Suma pascal

Uses CRT;

var

  n1,n2, suma : integer;

begin

  Writeln('Introduzca el primer n£mero: ');

  readln(n1);

  Writeln('Introduzca el segundo n£mero: ');

  readln(n2);

  suma := n1+n2;

  if (suma > 5) and (suma <> 9) then

    writeln('El n£mero es mayor de 5')

  else

    if suma = 9 then

      Writeln('Esto es una suma en pascal');

  Writeln('Pulse una tecla para continuar...');

  readkey;

end.