Составить программу, использую цикл while do. Вывести числа в следующем порядке 2, 4, 6, 8,10 ... 20 Паскаль

program num;

var n:integer; / / объявление переменной n, тип - целое число

begin

n:=0; / /начальное значение n; выводится не будет

while n<20 do / /выполнять, пока n<20

begin

n:=n+2; / /увеличить значение n на 2

write (n:5); / / вывести значение n на экран

end

end.