Если считать те 2 точки после восклицательного знака
1)53*16бит=53*2байта=106 байта
если не считать их
1)51*2байта=102 байта
Все на рисунке во вложении.
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.
Сайт с двумя страницами и ярким фоном... Да
begin
write('Здравствуйте, как вас зовут, в какой школе вы учитесь?');
end.