Один раз мы с Мишей были в игрушечном магазине и увидели замечательную игрушку - телефон.
В большой деревянной коробке лежали два телефонных аппарата, две трубки, в которые говорить и слушать, и целая катушка проволоки.
Продавщица объяснила нам, что если один телефон поставить в одной квартире, а другой - у соседей и соединить оба аппарата проволокой, то можно переговариваться.
Мы захотели его купить!
Это не какая-нибудь простая игрушка, которую поломаешь и выбросишь.
Это полезная вещь!
Мы с Мишей решили собирать деньги, чтобы купить телефон.
Две недели подряд мы не ели мороженого, не ходили в кино - всё деньги копили.
Наконец насобирали сколько было нужно и купили телефон.
Примчались из магазина домой с коробкой.
Один телефон у меня поставили, другой - у Мишки и от моего телефона протянули проволоку через форточку вниз, прямо к Мишкиному телефону.
Я помчался к себе, взял трубку и слушаю, а трубка уже кричит Мишкиным
голосом!
Нашему счатстью небыло предела!
В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>
Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц
Program massiv;
var a: array[1..10] of integer;
b,i,p: integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
writeln ('Введите число');
readln (b);
for i:=1 to 10 do
begin
if a[i]<b then
p:=p*a[i];
end;
for i:=1 to 10 do
write (a[i],' ');
writeln;
writeln ('Произведение элементов, меньших ',b,', равно ',p);
end.
Вот и код. Если я не правельно понял задание, скажи