fork download
copy 
  1. program uno;
  2.  
  3. var
  4.     num1, num2: integer;
  5.  
  6. begin
  7.     write('Ingrese un número: ');
  8.     readln(num1);
  9.     write('Ingrese otro número: ');
  10.     readln(num2);
  11.  
  12.     if (num1 = num2) then
  13.         writeln('Los números son iguales')
  14.     else
  15.         writeln('Los números son diferentes');
  16.  
  17.     readln;  { Para evitar que la consola se cierre inmediatamente }
  18. end.
  19.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ingrese un número: Ingrese otro número: Los números son iguales
https://ideone.com/CRIgOz
language:
Pascal (fpc 3.0.4)
created:
21 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!