<span>1.Монитор
2.Клавиатура
3.Дисковод
</span>
Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
begin
write('Введите N',i,': ');
readln(x);
if x>=5 then f:=false;
end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>
65536 цветов = 2^16
глубина цвета 16 бит
Объём изображения
1024*768*16 = 12582912 бит
12582912 бит / 8 = 1572864 байт / 1024 =1536 Кбайт / 1024 = 1,5 Мб
Изображение на мониторе займёт в видеопамяти 1,5 Мб
Var
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(i,' ');
end.