Написать программу отсчёта от 10 до 1, завершиться должна словом пуск. Паскаль, цикл while

Вопрос школьника по предмету Информатика

Написать программу отсчёта от 10 до 1, завершиться должна словом пуск. Паскаль, цикл while

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1403 от 16.03.2017

begin

  var i:=10;

  while i>=1 do begin

    Writeln(i);

    Sleep(1000); // пауза 1с

    i:=i-1

    end;

  Writeln(‘Пуск!’)

end.

Результат

10

9

8

7

6

5

4

3

2

1

Пуск!