[inne]PASCAL POMOCY, Wiem że nie ten dział ale zabardzo nie wiedziałem gdzie to wklepać. Opcje

[KrzysiekKCN]

Cześć wam.
Jutro muszę wytłumaczyć w szkole program z pascala.
Czy mógł by mi ktoś z tym pomóc? Nie wszystkie linie rozumiem. Poniżej podaje program według mojego wytłumaczenia.

[XML] pobierz, plaintext 
 
    1. program potega; <-- nazwa programu
   2. var
   3.  a:integer; <--- liczba całkowita ze znakiem
   4.  n:byte;   <--- bajt
   5.  function potegacalkowita (a:integer; n:byte):integer; <--- funkcja potęgi z podanymi 2 głównymi składnikami.
   6.  begin    <-- początek działań potęgi.
   7.  if n=0 then potegacalkowita := 1  <-- jeżeli wykładnik jest równy 0 to poega = 1
   8.  else  <-- jeśli nie
   9.  if (n mod 2 = 0) then  <-- jeżeli wykładnik jest parzysty to potegacałkowita = potęgowanie (sqr) funkcjipotęgi (liczba  i wykładnik podziel przez 2)
  10.  potegacalkowita := sqr (potegacalkowita (a, n div 2))
  11.  else  <-- jeśli nie
  12.  potegacalkowita := a * sqr (potegacalkowita (a, n div 2)) <-- potegacałkowita = liczba razy potęgowanie funkcji (liczba i wykładznik podziel przez 2)
  13.  end; <-- koniec działania funkcji
  14.  begin <-- początek programu
  15.  write (' podaj liczbę: '); readln (a);  <--- wczytywanie liczby
  16.  write (' podaj wykladnik: '); readln (n); <--- wczytywanie wykładnika potęgi
  17.  writeln (a, '^', n, ' = ', potegacalkowita (a, n));  <--- wyświetlenie funkcji
  18.  end. <--- koniec programu
[XML] pobierz, plaintext 

Dużo popełniłem błędów?
Z góry dzięki za pomoc

[webdice]

(...) Dużo popełniłem błędów? (...)

Wiele. Jeden z nich to wybór złego forum. Wszystko masz opisane w komentarzach. Zamykam, potem usunę.