3) Shkruani nje program qe permban nje 
funksion i cili lexon stringje . 


program funksionet ;

//variabel global
var s:string;

function afishim ():string;
//variabla lokal
var
s:string ;
begin
 writeln ('Jepni nje fjali');
 readln (s);
 afishim:= s;
end;

begin
// variabli s eshte ai global pasi lokali nuk mund te aksesohet ketu
  s:= afishim();
  writeln ('Ju keni shkruar fjaline : ', s);
  readln;
end.

ose 

program funksionet ;
var
 st :string ;

function afisho (s:string ) : string;
begin
 afisho := s;
end;

begin
 writeln ('Shkruani nje fjali');
 readln (st);
  writeln ('Ju keni shkruar fjaline : ' , afisho (st));
 readln ;
 end.


----------------------------------------------------------
4)Ndertoni nje funksion qe llogarit siperfaqen e 
sferes (rrethit). 


program funksionet ;
var
rr:integer;

function sip_rrethi(r:integer):real;
const pi= 3.14;
var
 sip:real;
begin
 sip:= pi* sqr(r);
 sip_rrethi:= sip;
end;

begin
  writeln ('Jep rrezen e rrethit');
  readln (rr);
  writeln ('Siperfaqja e rrethit eshte ',sip_rrethi(rr):2:2 );
  readln;
end.

ose


program funksionet ;
var
s:real;

function sip_rrethi():real;
const pi= 3.14;
var
 r, sip:real;
begin
 writeln ('Jep rrezen e rrethit');
  readln (r);
  sip:= pi * sqr(r);
  sip_rrethi:= sip;
 end;

begin
   s:= sip_rrethi();
  writeln ('Siperfaqja e rrethit eshte ',s:2:2 );
  readln;
end.
-------------------------------------------------------------------

5)Ndertoni nje funksion qe llogarit vleren me te 
madhe ndermjet tre numrave…

program meimadhi;

var
 x,y,z :integer ;

function maximumi (a,b,c:integer):integer ;
var
 max1 , max :integer ;
begin
 if a>b then
  max1:= a
  else
  max1 := b;

 if max1 >c then
  max := max1
  else
  max := c ;
 maximumi:= max ;
end;

begin
  writeln ('jepni tre numrat');
  readln (x,y,z);
  writeln ('Maximumi eshte ', maximumi(x,y,z));
  readln ;
end.

ose

program funksionet ;
var
  m:integer;
function maximum ():integer ;
var
 a,b,c, max1, max:integer ;
 begin
  writeln ('Jep 3 nr ');
  readln (a,b,c);
  if a >b then
  max1 := a
  else
  max1 := b;

  if max1 >c then
  max := max1
  else
  max := c;
 maximum:= max ;
end;

begin
   m:= maximum();
   writeln ('Maximumi eshte ', m);
   readln ;
 end.