Напишите (паскаль)программу которая выводит на экран числа 20 40 80 160 320

Var
  n:integer;
begin
  n:=20;
  while n<=320 do begin
    Write(n,' ');
    n:=2*n
    end
end.

Результат работы
20 40 80 160 320