Program rost;
var a: integer;
begin
readln (a);
if a<=180 then
Writeln('Не очень высокий')
else
Writeln('Высокий');
<span> end.</span>
Var a,b,n:integer;
begin
writeln('введите число: ');
read(n);
a := n div 100;
b := n mod 100;
<span><span>while a <> b do
</span><span> if a > b then </span><span> a := a - b
</span><span> else </span><span> b := b - a<span>;
writeln('НОД первой и второй части: ', a);
end.</span></span></span>
нужно знать сколько весит один символ тогда x*64*16 // это одна страница. затем переводи в мб