fork download
copy 
  1. program max; var y, a, b,c: integer;
  2.  
  3. begin
  4.  
  5. end.
  6.  
  7. writeln ("Нахождение наибольшей из трех величин);
  8.  
  9. write ('Введите a, b, c');
  10.  
  11. readln (a,b,c);
  12.  
  13. y:=a;
  14.  
  15. if (b>y) then y:=b;
  16.  
  17. if (c>y) then y:=c;
  18.  
  19. writeln ('y=',y);
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/C4Yoc5
language:
Pascal (fpc 3.0.4)
created:
4 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!