Задача 11 Урок 11

Задача 11 Урок 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

Решение:

var a:integer;
begin
a:=4;
while (a<=100) do
  begin
    writeln(a);
    a := a + 4;
  end;
readln();
end.  

Консоль:

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