Циклы с произвольным количеством шагов

[puporev]

while k<>1 do
   begin
     k:=N mod 10;
     m:=m*10;
     n:=n div 10;
   end;

Совсем думать не хочешь, два слова заменить.

[Walter]

Ааа... блин, вот дурень, у меня почти также было, ток вот немного лишнего было. Сорри за мою тупость, исправлюсь
Всё пошла, коегде подправил, и терь идёт как по маслу... блин всётаки умным быть хорошо (эт я про тебя Пуповер)