Zadání:
Sestavte program, který vypočte celočíselnou mocninu.

Řešení:
Zadání vyřešíme použitím cyklu FOR, který bude násobit jedničku základem tolikrát, kolikátá mocnina je zadána.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var mocnina,i: integer;
    zaklad,vysledek:real;

begin

   write('Zadejte zaklad mocniny: ');
   readln(zaklad);
   write('Zadejte mocninu: ');
   readln(mocnina);

   vysledek:=1;

   for i:=1 to mocnina do
      vysledek:=vysledek*zaklad;

   writeln('Vysledek=',vysledek:0:3);

   readln;

end.

Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné vysledek MUSÍTE vložit hodnotu 1 (jedna), jinak by program dosadil své počáteční hodnoty. Nemůžete použít hodnotu 0 (nula), výsledkem násobení by vždy byla 0 (nula).

Pro učitele:
Doporučuji ukázat a vysvětlit studentům, jak program zareaguje na nulovou hodnotu v proměnné pocet a na záporné hodnoty v proměnné pocet. Pro hodnotu 0 (nula) bude program reagovat správně, pro záporné nikoliv.