3)Implementoni ne paskal veprimet aritmetike 
(+,-,*,/,heresit dhe mbetjes)dhe afishoni 
rezultatet perkatese ...pjestimi te jete me max 
tre shifra para presjes dhjetore dhe dy shifra 
pas presjes.

program prog_pare;

var
 a,b,sh, zb,pr,h,mb :integer;
 pj:real;
begin
  writeln ('Jep vlerat ');
  readln(a,b);

  sh:= a+b;
  zb := a-b;
  pr := a * b;
  pj := a/ b;
  h:= a div b;
  mb := a mod b;

  writeln ('Shuma eshte ', sh ) ;
  writeln ('Zbritja eshte ', zb ) ;
  writeln ('Prodhimi eshte ', pr ) ;
  writeln ('Pjestimi eshte ', pj:3:2 ) ;
  writeln ('Heresi eshte ', h ) ;
  writeln ('Mbetja eshte ', mb ) ;

readln;
end.

---------------------------------

4)Implementoni ne paskal nje program qe 
llogarit moshen kur perdoruesi jep vetem vitin 
e lindjes dhe ate aktual 

program prog_pare;

var
 v_aktual, v_lindjes , m :integer;
begin
  writeln ('Jep vitin e lindjes ');
  readln(v_lindjes);
  writeln('Jep vitin aktual') ;
  readln(v_aktual);
  m:= v_aktual- v_lindjes;
  writeln ('Mosha juaj eshte ', m ) ;
readln;
end.

----------------------------------

5) Implementoni ne paskal algoritmin qe gjen 
rrenjet katrore te ekuacionit: ax2 + bx+c=0

program prog_pare;

var
 a,b,c,d:integer;
 x1, x2: real;

begin
  writeln ('Jep koefincentat ');
  readln(a,b,c);
  d:= b*b - 4*a*c;
  writeln ('Dallori eshte ', d);

  if d= 0 then
   begin
    x1:= -b/2*a;
    writeln ('Ekuacioni ka vetem 1 zgjidhje pasi dallori eshte =0. Zgjidhja eshte x1 = ', x1:2:2);
   end
else
   if  d>0 then
    begin
     x1:= (-b + sqrt(d))/2 * a;
     x2:= (-b - sqrt(d))/2 * a;
     writeln ('dallori eshte pozitiv dhe ekuacioni ka 2 zgjidhje x1= ', x1:2:2, ' dhe x2 =',x2:2:2 );
    end
else
   writeln ('Dallori eshte negativ => ekuacioni nuk ka zgjidhje');
   readln;
end.

----------------------------------------

6) Ndertoni nje program qe llogarit peshen
ideale te nje personi nepermjet formules 
P=(GJ-100 + M/10)*KM, ku km=0.9, kf=0.8 
• Ku gj-gjinia; 
• Km, kf- koeficentet per mashkullin dhe femren

program prog_pare;

const
   km= 0.9;
    kf= 0.8;
var
  gj: char ;
  m:integer;
  pm,pf:real;
  gjat:integer;

begin
 writeln ('jep moshen');
 readln (m);
 writeln ('jep m per gjinine mashkull dhe jep f per gjinine femer');
 readln (gj);
 writeln ('jepni gjatesine ');
 readln (gjat);

 if gj = 'm' then
  begin
   pm:= (gjat - 100 + m/10)* km;
   writeln (' Pesha ideale per meshkujt eshte ', pm:2:2);
  end
 else
  If gj= 'f' then
   begin
    pf:= (gjat-100 + m/10)* kf ;
     writeln (' Pesha ideale per femrat eshte ', pf:2:2);
   end
 else
   writeln ('Ju nuk keni dhene as m as f ');
  
 readln;
 end.