Pascali põhitõed
end;
end; (* protseduuri lõpp *)
begin (* Ja peaprogramm on nii jupike ... *)
writeln('Leiame kujundi pindala');
write('Kas kujund on ring (r), täisnurkne kolmnurk(k) või ruut (u)? ');
readln(kujund);
ArvutaPindala(kujund, S);
writeln ('Pindala on ',S:6:2);
end. (* peaprogrammi lõpp *)
Programminäide 12. Protseduur kasutab funktsiooni.
program Maksimum;
var n : integer;
mas : array [1..10] of integer;
procedure Sisesta;
(* n-i ja mas-i ei ole vaja parameetriteks panna, kuna need on
deklaree- *)
(* ritud sama programmi deklaratsioonideosas. See lahendus aga teeb *)
(* meie protseduuri sõltuvaks konkreetsest programmist. *)
var i : integer; (* lokaalne muutuja, kehtib vaid protseduuris *)
begin
writeln('Mitu elementi on? ');
readln(n);
for i := 1 to n do
begin
writeln('Sisesta ' , i , '. element: ');
readln(mas[ i ]);
end;
end; (* Protseduuri lõpp *);
function MaxEl(massiiv : array [1..10] of integer; arv : integer ) :
integer;
annaabi.ee 
