Funkce a procedury – Pascal – Fórum – Programujte.com

Zdravím, mám problém, napsal jsem tento program a ani se mi nezkompiluje.

Kompilátor hlásí chybu: project1.lpr(15,12) Fatal: Syntax error, ";" expected but "identifier SOUCETCELYCHCISEL" found

Nevíte v čem je problém? Děkuji předem

program project1;
var n:integer;

  function mocnina: integer;
    var vysledek,poc: integer;
   begin
     poc:=1;
    while poc<=10 do
     begin
       vysledek:=poc*poc;
       vysledek:=vysledek*poc;
       poc:=poc+1;
       write(vysledek);
     end;
  function SoucetCelychCisel: integer;
     var soucet,i : integer;
       begin
        soucet:=1;
        i:=1;
        while i<=n do
         begin
           soucet:=i+soucet;
           i:=i+1;
         end;
        SoucetCelychCisel:=soucet;
      end;
procedure NactiVstupOdUzivatele;
begin
   write('Zadej cele cislo n: ') ;
   read(n);
end;

begin
  write('Tento program vam vypise tabulku tretich mocnin cisel od 1 do 10');
  write(' + soucet vsech celych cisel od 1 do zvoleneho cisla n');
  writeln('treti mocnina cisel je: ');
  NactiVstupOdUzivatele;
  write(mocnina);
  write(SoucetCelychCisel);
end.
                    

kazdej begin musi mit prekvapive svuj end... nejsme v html..

#2 KIIV
Děkuji moc. Nyní jsem program poupravil, vše jde, akorát tu mám takový malý detail.

Program mi vypíše mocniny od 1 do 10, ale mocninu čísla 10 mi vypíše 2x, jak mohu tento problém vyřešit? Děkuji

program project1;
var n:integer;

  function mocnina: integer;
    var vysledek,poc: integer;
   begin
     poc:=1;
    while poc<=10 do
     begin
       vysledek:=poc*poc;
       vysledek:=vysledek*poc;
       poc:=poc+1;
       writeln(vysledek);
     end;
    mocnina:=vysledek;
   end;
  function SoucetCelychCisel(n: integer): integer;
     var soucet,i : integer;
       begin
        soucet:=0;
        i:=0;
        while i<=n do
         begin
           soucet:=i+soucet;
           i:=i+1;
         end;
        SoucetCelychCisel:=soucet;
      end;
procedure NactiVstupOdUzivatele;
begin
   write('Zadej cele cislo n: ') ;
   read(n);
end;

begin
  write('Tento program vam vypise tabulku tretich mocnin cisel od 1 do 10');
  write(' + soucet vsech celych cisel od 1 do zvoleneho cisla n');
  writeln('treti mocnina cisel je: ');
  NactiVstupOdUzivatele;
  writeln('Tabulka mocnin: ');
  writeln(mocnina);
  writeln;
  writeln('Soucet celych cisel je: ',SoucetCelychCisel(n));
end.  

no vypisujes uvnitr funkce a na konci vratis posledni cislo .... a to pak jeste vypises v te casti pod "Tabulka mocnin: "

#4 KIIV
Díky moc za radu!

takze bud z toho udelas proceduru, nebo vyhodis cyklus a vypisy z funkce a udelas z ni treba   treti_mocnina prijimajici jedno cislo, ze ktereho pak udela treti_mocnina := x*x*x;