fork download
copy 
  1. menor :-
  2.     write('Ingrese el primer número: '), read(N1),
  3.     write('Ingrese el segundo número: '), read(N2),
  4.     (N1 < N2 -> 
  5.         format('El menor es: ~w', [N1]) 
  6.     ; 
  7.         format('El menor es: ~w', [N2])
  8.     ), nl.
  9.  
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
GNU Prolog 1.4.5 (64 bits)
Compiled Feb  5 2017, 10:30:08 with gcc
By Daniel Diaz
Copyright (C) 1999-2016 Daniel Diaz
| ?-
https://ideone.com/Q7ktpX
language:
Prolog (gprolog 1.4.5)
created:
1 day 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!