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

var  n:integer;begin  n:=20;  while n<=320 do begin    Write(n,' ');    n:=2*n    endend.Результат работы20 40 80 160 320