fork(7) download
copy 
  1. Program Min_Max;
  2. Var X,Y,Min,Max:integer;
  3. Begin
  4. Writeln('donner deux entiers');
  5. Readln(X,Y);
  6. If X>Y Then 
  7. Begin
  8. Max:=X;
  9. Min:=Y;
  10. End
  11. Else	
  12. Begin 
  13. Max:=Y;
  14. Min:=X;
  15. End;
  16. Writeln('le maximum est:', Max, ' et le minimum est : ',Min);
  17. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
15
16
stdout
copy 
donner deux entiers
le maximum est:16 et le minimum est : 15
https://ideone.com/SbFP0z
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!