Вот, сюда не добавишь исходники кумира (за что я очень мирно и культурно ругаю администраторов), так что тхтшники ловите, подгрузите из кумиром
У зв'язку з розвитком науки і техніки, а також у зв'язку з появою попиту на ринку послуг в галузі телекомунікацій було вирішено ввести нову послугу, на базі новітньої технології IP-телефонії. IP-телефонія - це технологія передачі голосового трафіку по каналах мережі Internet, тобто по мережах з пакетною маршрутизацією (VoIP, Voice over IP). На відміну від IP-телефонії, традиційна телефонія - це передача голосу з виділенням окремого каналу для кожного з'єднання. Більш доступною мовою "IP-телефонія" - це передача телефонних з'єднань по IP, Інтернет-протоколу.
Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем
Var a:integer;
begin
readln(a);
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>