Нужно решить эту задачу с помощью оператора "while", помогите пожалуйста!
В 1626 году индейцы продали остров Манхэттен за 20 долларов. Если бы эти деньги были помещены в банк на текущий счет и ежегодный прирост составлял 4%, какова была бы стоимость капитала в 2003 году?

program old;vars: real; y: integer;begins:=20;y:=1626;writeln('Сейчас 1626 год и я положил в банк: ', s);  while y<2003 do   begin      s:=(s+(s*0.04));      y:=(y+1);      writeln(s,'$ В банке на ', y, ' год');    end;end.Итого: 52795743.6290571$ В банке на 2003 год