Program sjkjdf ;

// variabla global
var
 x,y,sh :integer;

// ----------------------------deklarimi i procedurave ------------------------
//  procedure pa parametra
Procedure shuma ();
var
 a,b,s:integer;
begin
 writeln ('Jepni dy nr');
 readln (a,b);
 s:= a+b;
 writeln ('Shuma eshte ' , s);
end;

//procedure me parametra (input)
procedure shuma (a,b:integer);
var
s:integer;
begin
 s:= a+ b;
 writeln ('Shuma eshte', s);
end;

//procedure me parametra (input & output)
procedure shuma (a,b:integer ; var s:integer);
begin
 s:= a+ b;
 writeln ('Shuma eshte', s);
end;

// ----------------------------deklarimi i funksioneve ------------------------
//  funksion pa parametra
function shuma1 (): integer ;
var
 a,b,s:integer;
begin
 writeln ('Jepni dy nr');
 readln (a,b);
 s:= a+b;
 shuma1:= s;
end;
// funksion me parametra
function shuma1 (a,b:integer): integer ;
var
 s:integer;
begin
 s:= a+b;
 shuma1:= s;
end;

BEGIN
   writeln ('Afishimet e procedures se pare');
   writeln ('-------------------------------');
   readln;
   shuma();
   readln;
   writeln ('Afishimet e procedures se dyte');
   writeln ('-------------------------------');
   readln;
   writeln ('Jepni dy nr');
   readln (x,y);
   shuma(x,y);
   readln;
   writeln ('Afishimet e procedures se trete');
   writeln ('-------------------------------');
   readln;
   shuma(x,y,sh);
   readln;
   writeln ('Afishimet e funksionit te pare');
   writeln ('-------------------------------');
   sh:= shuma1();
   writeln ('Shuma eshte', sh);
   readln;
   writeln ('Afishimet e funksionit te dyte');
   writeln ('-------------------------------');
   writeln ('Shuma eshte', shuma1(x,y));
readln;
end.