[Pascal: przeróbka programu, na instrukcje for]

jak zaczynasz to zacznij, nie widze zebys zaczynal

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

[Pascal: przeróbka programu, na instrukcje for]

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...