var
i, s : integer;
begin
s:= 0;
for i:=10 to 99 do
if i mod 8 = 0 then
s:= s + 1;
writeln(i);
end;
writeln('текст = ', s);
writeln;
end.
Объяснение:
Это код
