Program Fanisca;
uses crt;
var
n,temp,i,max: integer;
begin
write('Введите число N=');
readln(n);
max:=0;
i:=1;
writeln('*** alphaues is thinking... ***');
while i<=n do<br> begin
write('Введите ',i,'-е число ');
readln(temp);
if (max i:=i+1;
end;
writeln('Максимальное число, кратное 5, равно ',max);
end.