Advertisement
Guest User

Untitled

a guest
Nov 14th, 2018
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.19 KB | None | 0 0
  1. var
  2.   a, max: integer;
  3. begin
  4.   a := 1;
  5.   max := 0;
  6.   while (a <> 0) do
  7.   begin
  8.     readln(a);
  9.     if (a mod 2 = 0) and (a > max) then
  10.       max := a;
  11.   end;
  12.   writeln('max=', max);
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement