Из пятеричной в десятичную. Нужен перевод числа из десятичной системы в пятеричную на Pascal'е.

Question

Я сегодня сильно туплю и не могу сообразить как написать этот кусок.

Я вот и говорю, уже сильно туплю. Из десятичной в пятеричную.

Мне надо что бы выводила все одним числом.

Я все же смогла сделать по другому.

Андрей Сурняев · Accepted Answer

Делишь число нацело, и берёшь остатки, в чем проблема то? 
 
И я понять еще не могу: 
"Из пятеричной в десятичную" 
"из десятичной системы в пятеричную" 
 
Все таки из 5 в 10 или из 10 в 5? 
 
Противоречие какое то :) 
 
program tentofive; 
 
VAR 
k: integer; 
 
BEGIN 
write ('Enter NUM: '); 
readln (k); 
 
while (k > 0) do 
begin 
 k := k div 5; 
 write (k mod 5); 
end; 
 
readln; 
END.