Ndertoni nje program ne Paskal qe afishon 
vlerat e disa variablave kur ato jane te 
inicializuara ne kod. 


program prog_pare;

var
 a: integer;
 b: real;
 c:char;
 m: Boolean;
 f: string;

begin
 a:= 2;
 b:= 24.5;
 c:= 'h';
 m:= true;
 f:= 'dkgjkfg dfgjfhjg **&^^%$#$ 38445454' ;

 writeln ('vlera e a= ', a);
 writeln('Vlera e b= ', b:2:2);
  writeln('Vlera e c= ', c);
   writeln('Vlera e m= ', m);
    writeln('Vlera e f= ', f);
    readln;
    end.

-------------------------------------------------------
2)Ndertoni nje program ne pascal qe llogarit 
perimetrin dhe siperfaqen e nje trekendshi 
barabrinjes kur jepet brinja e tij a. 
• Formula per sip:=a*a*sqrt(3)/4 

program prog_pare;

Var
a,p:integer;
s:real;

begin
 writeln ('Ju lutem jepni brinjen');
 readln(a);
 s:= a*a * sqrt(3)/4;
 p:= 3 * a;
 writeln ('siperfaqja eshte ' , s:1:2) ;
 writeln ('Perimetri eshte ', p);
readln;
end.
----------------------------------------------------
3)Implementoni ne paskal nje progam qe 
afishon nje figure te tille : 
 
$$$$$$$ $$$$$$$ 
$$$$$     $$$$$ 
$$$         $$$ 
$             $ 
$             $ 
$$$         $$$ 
$$$$$      $$$$ 
$$$$$$$ $$$$$$$ 

program prog_pare;

begin
 writeln ('$$$$$$$ $$$$$$$');
 writeln ('$$$$$     $$$$$');
 writeln ('$$$         $$$');
 writeln ('$             $');
 writeln ('$             $');
 writeln ('$$$         $$$');
 writeln ('$$$$$     $$$$$');
 writeln ('$$$$$$$ $$$$$$$');
readln;
end.

------------------------------------------------------
4) Implementoni ne paskal algoritmin qe ben 
shkembimin e vlerave te dy variablave

program prog_pare;

var
 a,b,t :integer;
begin
  writeln ('Jep vlerat ');
  readln(a,b);
  writeln ('Vlera fillestare e a= ' , a, ' dhe vlera fillestare e b= ',b);
  t:= a;
  a:= b;
  b:=t;
  writeln ('Vlera e shkembyer e a= ' , a, ' dhe vlera shkembyer e b= ',b);
readln;
end.

-------------------------------------------------------
5) Implementoni ne paskal algoritmin qe ben 
shkembimin e vlerave te dy variablave, nqs 
variabli i pare eshte me i vogel se ai i dyti 



program prog_pare;

var
 a,b,t :integer;
begin
  writeln ('Jep vlerat ');
  readln(a,b);

  if a<b then
  begin
  writeln ('Vlera fillestare e a= ' , a, ' dhe vlera fillestare e b= ',b);
  t:= a;
  a:= b;
  b:=t;
  writeln ('Vlera e shkembyer e a= ' , a, ' dhe vlera shkembyer e b= ',b);
  end
  //perpara else nuk vendoset ;
  else
   writeln ('Shkembimi nuk lejohet');
readln;
end.

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

6) Implementoni algoritmin qe afishin vleren 
absolute te nje nr a 

program prog_pare;

var
 a,abs :integer;
begin
  writeln ('Jep vleren ');
  readln(a);

  if a>=0 then
   abs:= a
  else
   abs:= =-a;
  writeln ('Vlera absolute e nr ', a, ' eshte ', abs);
readln;
end.
------------------------------------------
7) Ndertoni nje program qe gjen vleren absolute 
te diferences se dy nr a dhe b 

program prog_pare;

var
 a,b,abs :integer;
begin
  writeln ('Jep vleren ');
  readln(a,b);

  if (a-b)>=0 then
   abs:= a -b
  else
   abs:= -(a-b);
  writeln ('Vlera absolute e nr ', a-b, ' eshte ', abs);
readln;
end.