Вопрос, который вызвал трудности

Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ):
12345
1234
123
12
1


54321
4321
321
21
1

54321
5432
543
54
5


Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
   writeln (a div 10);
  a:=a div 10;
end;
end.

program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.

program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin 
writeln(a div 10);
a:=a div 10;
end;
end.