pastebin

Paste Search Dynamic
Recent pastes
integer
  1. program app;
  2. var
  3.         a,b,c:integer;
  4. begin
  5.         readln(a,c,b);
  6.         if ((a>c) and (b>a)) or ((a>b) and (c>a)) then
  7.                 writeln(a);
  8.         if ((b>c) and (a>b)) or ((a>b) and (c>b)) then
  9.                 writeln(b);
  10.         if ((c>b) and (a>c)) or ((c>a) and (b>c)) then
  11.                 writeln(c)
  12. end.
Parsed in 0.002 seconds