Что-то типо этого: https://beginpc.ru/images/windows/disk_structure.png
Если алфавит на 64 символа, то один символ займет 6 бит
Общий объем текста 600 бит или 75 байт
1.
var x,a:integer; p:real;
begin
a:=3;p:=1;
for x:=1 to 5 do p:=p*a*x*x/sqrt(x+5);
writeln('p=',p);
<span>end.
2.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
while x<5 do
begin
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
end;
writeln('p=',p);
<span>end.
3.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
repeat
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
until x=5;
writeln('p=',p);
<span>end.
Результат:
p=20122.311710423
</span></span></span>
Int......................