Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>
Начало
Присвоить С=14
Метка1: Если C>130 Тогда ВЫХОД
С=С+1
Вывод С
Вывод Символ ':'
Вывод 1,8*C+32
Вывод Символ перевода строки
Перейти Метка1
Тебе требуется перевести значения из двоичной системы в восьмеричную, из восьмеричной в шестнадцатеричную.
1.Берешь ведро
2.набираешь воду
3.ставишь ведро на место
4.Берешь удочку
5.насаживаешь наживку на крючок
6.забрасываешь в воду удочку
7.ждешь пока рыба клюнет
8.когда рыба клюнет - подсекаешь
9.берешь рыбу в руки
10.снимаешь с крючка
11.бросаешь в ведро
и все начинаешь заново с 4 пункта