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

//Pascal ABC.NET v3.0 сборка 1111var a:integer;begina:=0;while a<>20 do begin;   a:=a+2;  write(a:4); end;end.