Решить и объяснить сколько страниц было в тексте если он закодирован в 8 битной кодировке если выделено место 20 гб если в одной страницы 32 строки а на 1 строке 62 символа

Первая: var a,r: real; begin writeln('введи длину сторону квадрата'); readln(a); writeln('введи радиус круга'); readln(r); if pi*r*r> a*a then writeln('площадь круга больше') else if pi*r*r< a*a then writeln('площадь квадрата больше') else writeln('площади фигур равны'); end. вторая: var m1,m2,v1,v2: real; begin write('m1 = '); readln(m1); write('m2 = '); readln(m2); write('v1 = '); readln(v1); write('v2 = '); readln(v2); if m1/v1< m2/v2 then writeln('плотность первого тела меньше') else if m1/v1> m2/v2 then writeln('плотность второго тела меньше') else writeln('плотности равны') end.

//pascal var   a, p:   word;   i, n: integer; begin   readln(n);   //цикл for   p : = 1;   for i : = 1 to n do       p : = p * i;   writeln(p);     //цикл while   i : = 1;   p : = 1;   while i < = n do   begin       p : = p * i;       i : = i + 1;   end;   writeln(p);     //цикл repeat   i : = 1;   p : = 1;   repeat       p : = p * i;       i : = i + 1;   until i > n;   writeln(p); end.