Potrzebujemy zdefiniować dwie zmienne. Pierwszą jako integer, a drugą jako real. Dodatkowo przyda się nam zmienna, która przyjmie domyślną wartość instrukcji.

Powiedzmy:
var
i,l : integer;
p : real;

Zmienna "i" potrzebna nam będzie do przechwycenia wartości podanej przez użytkownika.

Zmienna "l" przyjmie domyślną wartość instrukcji for = 1.

Zmienna "p" odpowiedzialna będzie za wypisanie potęgi liczby 2, dlatego też jest to zmienna typu real, bo użytkownik może podać i:=100;.

Zmienna "p" bez przydzielonej wartości 1 Musimy teraz zdefiniować jedną instrukcję. Będzie to instrukcja for i:=1 do i, ponieważ ma się ona wykonać minimum 1 raz, a powtarzana ma być do "i" razu - użytkownik definiuje ile razy.

Jedyną rzeczą, którą musimy pamiętać jest nadanie zmiennej "p" wartości równej 1 PRZED INSTRUKCJĄ FOR. Wiemy o tym, że 1 pomnożone przez 2, da wynik 2. Dlatego właśnie musi być zdefiniowana ta wartość przed instrukcją. Jeśli tego nie zrobimy, to każdy wynik będzie równy 0.

Jak zatem instrukcja ma wyglądać?

p:=1;
for l:=1 to i do
begin
p=p*2;
write(' ',l,' . ',p);
end;

Przykład działania Dodać należy jeszcze komunikat o podaniu wartości dla "i", oraz odczytać ją z klawiatury.

Tak utworzony program powinien wyglądać, jak na obrazku obok. Oczywiście ja nieco "upiększyłem" ten program i zabezpieczyłem go przed podaniem wartości

Działający program możecie pobrać ze strony: http://dl.dropbox.com/u/102145/potegi.exe