Начало
Присвоить С=14
Метка1: Если C>130 Тогда ВЫХОД
С=С+1
Вывод С
Вывод Символ ':'
Вывод 1,8*C+32
Вывод Символ перевода строки
Перейти Метка1
Ответ проверил. сеачала в десятичную переводишь потом из 10 в троичную. чет вроде фотка полностью не прогружается. если че напиши
По середине "источник информации" > "информационный канал" > "приемник информации"
Program gt;
var a:array[1..10]of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-65;
if(i mod 2=0)then write(a[i],' ');
end;
end.