Funkcje w Pascalu

  
Struktura procedury
 procedure nazwa_procedury(lista parametrów formalnych);
 część deklaracyjna;
 begin
   ciąg isntrukcji;
 end;

 
Struktura funkcji
 function nazawa_funkcji(lista parametrów formalnych):typ wyniku;
 część deklaracyjna;
 begin
   ciąg instrukcji;
   {w ciągu tym musi choć jeden raz wystąpić 
   nazwa_funkcji:=} 
 end;

program funkcje;
uses crt;
var a,b:integer;
procedure ostrzezenie;
begin
  write('Dzielenie przez 0 nie zdefiniowane');
end;
function suma(aa,bb:integer):integer;
begin
  suma:=aa+bb;
end;
function iloraz(aa,bb:integer):real;
begin
  if bb<>0 then
  iloraz:=aa/bb;
end;
begin
  clrscr;
  writeln('podaj a i b');
  readln(a,b);
  writeln(a,'+',b,'=',suma(a,b));
  if b<>0 then writeln(a,'/',b,'=',iloraz(a,b):4:3) else ostrzezenie;
  readkey;
end.