Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2018
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. {$APPTYPECONSOLE}
  2. var
  3.   a, b, c, d: integer;
  4.   function max(a,b:integer;):integer;
  5.     begin
  6.       if (a > b) then
  7.         result := a
  8.       else
  9.         result := b;
  10.     end;
  11. begin
  12.   readln (a, b, c, d);
  13.   writeln (max(max(max(a, b), c), d));
  14.   readln;
  15.   readln;
  16. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement