1) renditje nga me i madhi deri tek me i vogli

program renditje ;

var
 a,b,c,d :integer ;

begin
 writeln ('Jepni vlerat');
 readln(a,b,c,d);

 if (a>b)and (b>c)and (c>d) then
  writeln (a,' ',b,' ',c ,' ',d)
 else
  if (a>b)and (b>c)and (d>c) then
  writeln (a,' ',b,' ',d, ' ',c)
 else
 if (a>c)and (c>b)and (b>d) then
  writeln (a,' ',c,' ',b, ' ',d)
 else
 if (a>c)and (c>d)and (d>b) then
  writeln (a,' ',c,' ',d, ' ',b)
 else
 if (a>d)and (d>b)and (b>c) then
  writeln (a,' ',d,' ',b, ' ',c)
 else
  if (a>d)and (d>c)and (c>b) then
  writeln (a,' ',d,' ',c, ' ',b)
 else
  if (b>a)and (a>c)and (c>d) then
  writeln (b,' ',a,' ',c, ' ',d)
 else
   if (b>a)and (a>c)and (d>c) then
   writeln (b,' ',a,' ',d, ' ',c)
 else
   if (b>c)and (c>a)and (a>d) then
   writeln (b,' ',c,' ',a ,' ',d)
 else
   if (b>c)and (c>d)and (d>a) then
   writeln (b,' ',c,' ',d, ' ',a)
 else
   if (b>d)and (d>a)and (a>c) then
   writeln (b,' ',d,' ',a ,' ',c)
 else
   if (b>d)and (d>c)and (c>a) then
   writeln (b,' ',d,' ',c, ' ',a)
 else
   if (c>a)and (a>b)and (b>d) then
  writeln (c,' ',a,' ',b, ' ',d)
 else
  if (c>a)and (a>d)and (d>b) then
  writeln (c,' ',a,' ',d, ' ',b)
 else
 if (c>b)and (b>a)and (a>d) then
  writeln (c,' ',b,' ',a ,' ',d)
 else
 if (c>b)and (b>d)and (d>a) then
  writeln (c,' ',b,' ',d ,' ',a)
 else
 if (c>d)and (d>a)and (a>b) then
  writeln (c,' ',d,' ',a, ' ',b)
 else
  if (c>d)and (d>b)and (b>a) then
  writeln (c,' ',d,' ',b, ' ',a)
 else
   if (d>a)and (a>b)and (b>c) then
  writeln (d,' ',a,' ',b, ' ',c)
 else
  if (d>a)and (a>c)and (c>b) then
  writeln (d,' ',a,' ',c, ' ',d)
 else
 if (d>b)and (b>a)and (a>c) then
  writeln (d,' ',b,' ',a, ' ',c)
 else
 if (d>b)and (b>c)and (c>a) then
  writeln (d,' ',b,' ',c, ' ',a)
 else
 if (d>c)and (c>a)and (a>b) then
  writeln (d,' ',c,' ',a ,' ',b)
 else
  if (d>c)and (c>b)and (b>a) then
  writeln (d,' ',c,' ',b ,' ',a);

  readln;
End.

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

2) ushtrimi 2

program ushtrimi2;

var
 a,b:integer ;
 op:char ;
 rezultati:real;

begin
 writeln ('Jepni 2 nr');
 readln(a,b);
 writeln ('jepni operantin');
 readln(op);

 if op = '+' then
  rezultati := a+b;
 else if op= '-' then
 rezultati := a-b
 else if op = '*' then
  rezultati := a*b
 else if op= '/' then
  rezultati := a/b;
else 
  writeln ('Operatori nuk eshte i sakte');

writeln ('reultati eshte ' , rezultati:2:2); 
readln;

end.

ose 


program ushtrimi2;

var
 a,b:integer ;
 op:char ;
 rezultati:real;

begin
 writeln ('Jepni 2 nr');
 readln(a,b);
 writeln ('jepni operantin');
 readln(op);

 if op = '+' then
 begin
    rezultati := a+b;
    writeln ('reultati eshte ' , rezultati:2:2);
 end
 else if op= '-' then
 begin
    rezultati := a-b;
    writeln ('reultati eshte ' , rezultati:2:2);
 end
 else if op = '*' then
 begin
    rezultati := a*b;
    writeln ('reultati eshte ' , rezultati:2:2);
 end
 else if op= '/' then
  begin
    rezultati := a/b;
    writeln ('reultati eshte ' , rezultati:2:2);
 end
else 
  writeln ('Operatori nuk eshte i sakte');

 
readln;

end.

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

3) ushtrimi 3

program ushtrimi2;

var
 a,b:integer ;
 op:char ;
 rezultati:real;

begin
 writeln ('Jepni 2 nr');
 readln(a,b);
 writeln ('jepni operantin');
 readln(op);

 case op of

   '+' : rezultati := a+b ;
   '-' : rezultati := a-b ;
   '*' : rezultati := a*b ;
   '/' : rezultati := a/b;
  else
   writeln ('Operatori nuk eshte i sakte');
  end;
 writeln ('reultati eshte ' , rezultati:2:2);
readln;

end.

ose 


program sdfjdf;

var
 a,b:integer;
 op:char;
 res:real;

begin
 readln (a,b);
 writeln ('Jep operatorin');
 readln (op);


 case op of

 '+' : writeln ('rezultati eshte ', a+b);
 '-' : writeln ('rezultati eshte ', a-b);
 '*' : writeln ('rezultati eshte ', a*b);
 '/' : writeln ('rezultati eshte ', a/b);
 else
 writeln ('operator jo i sakte ');
 end;


 readln ;
 end.
----------------------------------------------
4) ushtrimi 4

program ushtrimi4;

var
 piket:integer ;
begin
 writeln ('Jepni piket qe keni marre ne provim');
 readln(piket);

 if (piket >= 45)and (piket <= 54) then
  writeln ('Ju moret noten 5')
 else
  if (piket >= 55)and (piket <= 64) then
  writeln ('Ju moret noten 6')
 else
 if (piket >= 65)and (piket <= 74) then
  writeln ('Ju moret noten 7')
 else
 if (piket >= 75)and (piket <= 84) then
  writeln ('Ju moret noten 8')
 else
 if (piket >= 85)and (piket <= 94) then
  writeln ('Ju moret noten 9')
 else
 if (piket >= 95)and (piket <= 100) then
  writeln ('Ju moret noten 10')
 else
 writeln ('Ju nuk e kaloni kete provim') ;
  readln;
end.
------------------------------------------
5) ushtrimi 5

program ushtrimi4;

var
 piket:integer ;
begin
 writeln ('Jepni piket qe keni marre ne provim');
 readln(piket);

 case piket of
 45..54 : writeln ('Ju moret noten 5');
 55..64 : writeln ('Ju moret noten 6');
 65..74 : writeln ('Ju moret noten 7');
 75..84 : writeln ('Ju moret noten 8');
 85..94 : writeln ('Ju moret noten 9');
 95..100: writeln ('Ju moret noten 10')
 else
 writeln ('Ju nuk e kaloni kete provim') ;
 end;
  readln;
end.
------------------------------------------

8) Ushtrimi 8 

program ushtrimi8;

var
 x,y :integer ;

begin
 writeln ('Jepni kordinatat');
 readln (x,y);

 if (x>0) and (y>0) then
  writeln ('Pika ndidhet ne kuadratin e pare')
 else
 if (x<0) and (y>0) then
  writeln ('Pika ndidhet ne kuadratin e dyte')
 else
 if (x<0) and (y<0) then
  writeln ('Pika ndidhet ne kuadratin e trete')
 else
 if (x>0) and (y<0) then
  writeln ('Pika ndidhet ne kuadratin e katert')
 else
    writeln ('Inputi nuk eshte i sakte');
readln;
end.

-------------------------------------------
9) ushtrimi 9 

 program ushtrimi9;

 type diteJave = (Hene,Marte, Merkure, Enjte, Premte, Shtune,Diel);

 var
  dita : diteJave;

begin
 for dita := Hene to Diel do
  case dita of
  Hene    : writeln ('E hene');
  Marte   :writeln ('E marte');
  Merkure :writeln ('E merkure');
  Enjte   :writeln ('E enjte');
  Premte  :writeln ('E premte');
  Shtune  :writeln ('E shtune');
  Diel    :writeln ('E diel');
  else
  writeln ('VLere e papercaktuar');
  end;
 readln;
End.

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