Advertisement
Guest User

Untitled

a guest
Apr 10th, 2020
156
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.24 KB | None | 0 0
  1. Program HelloWorld(output);
  2. var
  3.     max, a, i, n: integer;
  4. begin
  5.     max:=0;
  6.     readln(n);
  7.    for i:=1 to n do begin
  8.    readln(a);
  9.         if ((a mod 4 = 0) and (a>max)) then
  10.             max:=a;
  11.         end;
  12.   writeln(max);
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement