Ну изи же
1)1
2121
3)YES
4)67
5)Не видно конец кода
16 цветов = 4 бита на пиксель.
640*480 = 307200 пикселей на экране.
307200*4 = 1228800 бит информации, делим на 8 = 153600 байт, делим на 1024 = 150 Килобайт
1.1
2.4
3.2
4.4
5.3
6.2
7.1
8.1
9.3
Var a:integer;
Begin
Readln (a);
if a>3000 then writeln('Взять кислородный баллон')
else writeln ('Взять больше воды');
<span>end.</span>
Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.