Выводить числа в порядке убывания от 10 до 1 Паскаль.Задачи со счетчиком Нужен текст...

Question

Выводить числа в порядке убывания от 10 до 1

Паскаль.Задачи со счетчиком
Нужен текст программы со всеми var begin end итд
делать через while

Answer 1

Var a:integer;
begin
a:=10;
while a>=1 do
begin
writeln(a);
a:=a-1
end
end.