О! научился формулировать задачу. Уже хорошо.
program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
if a*a>225 then
writeln('Slishkom bolshoe chislo')
else
if max<a then max:=a ;
until a=0;
readln;
writeln('max=',max);
end.
91 : 13 =7 бит - объём информации об одном файле
Всего 2^7 =128 файлов; 128-13 =115 файлов осталось.
ответ 115 файлов
Вот рисунок схемы обработки информации
program pr;
var
a,b:integer;
begin
readln(a,b);
while(a<=b) do readln(a,b);
writeln(0.5*a*b,', ',a+b+sqrt(a*a+b*b));
end.
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.