Это можно рассмотреть как: "Для i от 10 до -10 выполнить(делать) S=S+1;
Следовательно посчитав " на пальцах"(так проще), находим, что тело цикла выполнится 21раз(0 тоже число)
Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
8192 / 8 = 1024 байт - переводим в байты
1024 / 1024 = 1 килобайт - переводим в килобайты
Первое, если я правильно поняла задание
1024×400=409600 байт
409600÷50=8192байта/с
8192×30=245760байт=240Кбайт