Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.
Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write('Двухзначные числа кратные 5: ');
while(i<=50) do
begin
write(i,' ');
s:=s+i;
i:=i+5;
end;
writeln;
writeln('Сумма 10 двухзначных чисел кратных 5: ',s);
readkey;
end.
40*60=2400 байт (8бит=1байт)
1 Гбайт = 1024 Мбайт
1024 Мбайт * 1024 = 1048576 Кбайт
1048576 Кбайт * 1024 = 1073741824 байт
1073741824 байт / 2400 = примерно= 447393 страниц
447392 страниц / 100 = примерно= 4474 см = 44,74 метра
Shift или capslock в зависимости от ситуации