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

Var a:integer;
begin
a:=0;
while a<20 do
 begin
 a:=a+2;
 write(a,'  ');
 end;
end.

Результат:
2  4  6  8  10  12  14  16  18  20