extreme_program

zacząłem tylko nie działa, dlatego pytam jak to napisać..

Witam Potrzebuje przerobić program poniżej na taki z instrukcją iteracyjną for. Oblicz wartość 2 do potęgi n, gdzie n jest elementem wejścia. program Untitled; var n, i, p: integer; begin readln(n); if n = 0 then write(2 do, 0, '=', i); else begin i:= 0; p:= 1; repeat p:= p * 2; i:= 1 + 1 until i = n; writeln('2 do', n, '=', p) end end. Jeśli ktoś z Was wie jak to zrobić, to proszę aby napisał, dopiero zaczynam z pascalem i nie jestem jeszcze w temacie...