Program gt;
var a,b,c,d:integer;
begin
read(a,b,c,d);
if(a=b)then writeln('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 1 ЯВ.. КВАДратом');
if(c=d)then writeln('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 2 ЯВ.. КВАДратом');
if((a<=c)and(b<=d))or ((a<=d)and(b<=c)) or((a>=c)and(b>=d)) or((a>=d)and(b>=c))then writeln('ДА')else writeln('НЕТ');
end.
Var k,p:integer;begin readln(k,p);writeln(sqr((k*100)/p):0:0);readlnend.
Статья содержит 8 стр, на каждой странице 32 строки, в каждой строке 32 символа⇒ умнажаем это всё друг на друга
8*32*32= 8192 это всего символов
8192*16= 131072 = 128