fork download
copy 
  1. Program Min2;
  2. Var a, b , min : integer; 
  3. Begin 
  4. Writeln ('saisir deux entiers : '); 
  5. Readln(a,b);
  6. If a<b Then min:=a
  7. Else min:=b;
  8. Writeln ('le minimum de deux entiers est : ', min);
  9. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
10
5
stdout
copy 
saisir deux entiers : 
le minimum de deux entiers est : 5
https://ideone.com/3Iftdu
language:
Pascal (fpc 3.0.4)
created:
7 years 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!