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
begin
write('Введите ',i,'-е число ');
readln(temp);
if (max<temp) and (temp mod 5 = 0) then max:=temp;
i:=i+1;
end;
writeln('Максимальное число, кратное 5, равно ',max);
end.
Var a,b,m :real;beginreadln(a);readln(b);m:=(a+b)/2;writeln(m);end.
Log(2)8 = 3 бита (2^3 = 8)