Вывести на экран числа 100, 96, 92, ... до последнего положительного включительно. Напишите программу на языке Pascal.

Программа на языке Pascal, которая выводит числа 100, 96, 92, ... до последнего положительного числа:

var
  a, b: integer;
begin
  a := 100;
  while a > 0 do
  begin
    writeln(a);
    a := a - 4;
  end;
end.

Объяснение:

1. В разделе var объявляются две целочисленные переменные a и b. Переменная a используется для хранения текущего числа, которое выводится на экран, а b (хотя в данном коде она не используется) вероятно, предназначалась для каких-то других операций, которые в финальной версии программы не понадобились.
2. В разделе begin начинается основная часть программы.
3. a := 100; присваивает переменной a начальное значение 100.
4. while a > 0 do начинает цикл, который будет выполняться, пока значение переменной a больше 0.
5. Внутри цикла writeln(a); выводит текущее значение переменной a на экран.
6. a := a - 4; уменьшает значение переменной a на 4.
7. Цикл while завершается, когда значение a становится меньше или равным 0.

Пример вывода программы:

100
96
92
88
84
80
76
72
68
64
60
56
52
48
44
40
36
32
28
24
20
16
12
8
4