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

program num;
var n:integer; // объявление переменной n, тип - целое число
begin
n:=0; //изначальное значение n; выводится не будет
while nlt;20 do //исполнять, пока nlt;20
begin
n:=n+2; //прирастить значение n на 2
write(n:5); // вывести значение n на экран
end
end.