Program gt;
var a,max,s:longint;
begin
a:=-1;
max:=-100;
s:=0;
while a<>0 do
begin
read(a);
if(a=max)then s:=s+1;
if(a>max)then begin
max:=a;
s:=1;
end;
end;
writeln(s);
end.<span>
</span>
1 символ =1 байт
16*32 = 512 байт одна страница
10 Кб = 10*1024 = 10240 байт
10240/512 = 20
Ответ: 20 страниц
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>