1) Ndertoni nje program qe permban procedurat 
... 
• Pershendetje(); 
• Ckemi (emer); 


program procedurat ;

var
st:string;

procedure pershendetje ();
begin
 writeln ('Pershendetje !!!');
end ;

procedure ckemi (s:string);
begin
 writeln ('Ckemi ', s);
end;

Begin
  pershendetje();
  writeln ('Jepni emrin ');
  readln (st);
  ckemi(st);
  readln ;
end.

------------------------------
2) Vazhdim i ushtrimit 1....... 
 
• Afishim () qe i kerkon perdoruesit te jape 
emrin e nqs emri eshte = Ana therret 
proceduren ckemi(emer) perndryshe afishon 
‚Nuk ju njoh‘ 
• ShumeSMS (mesazh, Nafishime) e cila afishon 
N here mesazh. 


program procedurat ;
 var str:string;
 n,i:integer;

procedure ckemi (s:string);
begin
 writeln ('Ckemi ', s);
end;

procedure aifshim ();
var
 st:string ;
begin
  writeln ('Jep nje emer');
  readln (st) ;
  if st = 'Ana' then
   ckemi(st)
   else
   writeln ('Nuk ju njoh');
end;

procedure ShumeSms(mesazh:string ;Nafishime:integer);
begin
 for i:= 1 to Nafishime do
  writeln (mesazh);
end;


Begin
   aifshim();
  readln ;
   writeln ('Jep mesazhin');
   readln (str);
   writeln ('Sa here doni ta perseritni kete sms');
   readln (n);
   shumesms(str, n);
   readln ;
end.

---------------------------------------------------
3)Te krijohet nje procedure ku si input merr 
2 numra dhe si output afishon heresin 
dhe mbetjen e tyre. 



program ushtrimi3;

procedure llogarit ();
var
 a,b,heres,mbetje:integer ;
begin
writeln ('jepni 2 nr');
readln (a,b);
heres := a div b;
mbetje := a mod b ;
writeln ('Heresi eshte ', heres, ' Mbetja eshte ', mbetje) ;
end;

Begin
 llogarit();
 readln ;
end.

ose


program llogaritje ;
 var
  x,y, hers,mbj:integer ;
procedure llogarit (a,b:integer ; var h,m:integer );
begin
 h:= a div b ;
 m:= a mod b ;
 writeln ('Heresi eshte ', h , ' mbetja eshte ', m);
 end;

begin
 writeln ('jep 2 nr');
 readln (x,y);

llogarit (x,y, hers,mbj);
readln ;
end .
-----------------------------------------------