Согласна 5 ( 2 и 5 не перепутать )
Var
i,n:integer;
Begin
for i:= 1 to 119 do
if (i mod 5) = 0 then
n:=n+i;
Write('Сумма положительных кратных 5 чисел, меньших 120 равна ',n);
<span>End.
И вопрос - вы действительно 1-4 класс?</span>
0001 занимает в памяти пол байта. Значит, можно закодировать 500*1024(так как кило)*2(так как один байт два раза по под байта) точек экрана. Если разделить исходное значение на 800(подбором из стандартных разрешений), то получится 1280. Тогда разрешение монитора 1280х800.