Question

Помогите написать программу на Pascal ) Нужно, что бы программа выводила цикл. Вот такого содержания
12345
2345
345
45
5
Треугольником.

Answer 1

var A:integer;
S:String;
begin
Readln(A);
Str(A,S);
While not(S='') do
begin
Writeln(S);
Delete(S,1,1);
end;
end.

Answer 2

Читать не чего не надо

Answer 3

Что не так?

Answer 4

Вот такого содержания
12345
2345
345
45
5

Answer 5

программа выводит правильно, т.к. ввод за вывод не считают

Answer 6

если не хочешь тогда так:
var S:String;
begin
Readln(S);
While not(S='') do
begin
Delete(S,1,1);
Writeln(S);
end;
end.