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

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