2 задание очень нужно
Var a,b,c:integer;k:integer;beginreadln (a,b,c);if (a mod 4=0) and (a>b) and (a>c) then writeln (a);if (b mod 4=0) and (b>a) and (b>c) then writeln (b);if (c mod 4=0) and (c>a) and (c>b) then writeln (c);end.