2^25=33554432 бит = 4194304 байт = 4096 кбайт = 4 мбайт
Результат отработки алгоритма:
A=2
B=2
C=9
D=3
MM !!! :-) legho очень легко ММ
Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.