Funkcije

var a;

funcion ispis(a:integer):integer; ovako deklariramo funkciju

begin

     ispis:=a;                  funkcija ože poprimiti vrijednost neke varijable

end;

begin

     readln(a);

     writeln(ispis(a)); ispis vrijednosti funkcije, varijable moramo navesti                        redom kojim ih unosimo

     readln();

end.

var a:integer;

function nest(a:integer):integer;

begin

   writeln(a*a*a);

end;

begin

   readln(a);

   nest(a);

   readln();

end.

var a:integer;

function nest(a:integer):integer;

begin

   nest:=a*a*a;

end;

begin

   readln(a);

   writeln(nest(a));

   readln();

end.

var r:real;

function povrsina(r:real):real;

begin

   povrsina:=r*r*3.14;

end;

funcion opseg(r:real):real;

begin

   opseg:=2*r*3.14;

end;

begin

   realn(r);

   writeln(povrsina(r):7:2);

   writeln(opseg(r):7:2);

   readln();

end.