Знатокам программирования! Переписать программу из паскаля в лазарус
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a > max) then
max := a;
end;
writeln(max)
end.

asti2000    3   17.11.2020 00:59    1