Program z procedurą Dodawanie:
Program Suma_liczb;
USES Crt;
Var
Tak_Nie :char;
Procedure Dodawanie;
VAR a,b :integer;
Suma :integer;
Begin
WriteLn;
Write( Podaj liczbe a:  );
ReadLn(a);
Write( Podaj liczbe b:  );
ReadLn(b);
Suma:=a+b;
WriteLn( Suma liczb a i b wynosi:  ,Suma);
WriteLn;
End;
Begin
ClrScr;
Repeat
Dodawanie;
WriteLn( Jeszcze raz? (T)ak );
Tak_Nie:=UpCase(ReadKey);
Until Not (Tak_Nie= T );
End.
Program z funkcją Dodawanie:
Function Dodawanie:integer;
Var a,b:integer;
Begin
WriteLn;
Write( Podaj liczbe a:  );
ReadLn(a);
Write( Podaj liczbe b:  );
ReadLn(b);
Dodawanie:=a+b;
End;
W programie głównym w tym ostatnim wypadku należy zmien-
nej Suma przypisać wynik funkcji Dodawanie.