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.