1)Te shkruhet nje program ne gjuhen paskal ku 
afishohet nje shprehje e tille : 
 
• Pershendetje ! 
Une jam (Emrin e Mbiemrin tuaj ) 
Student i vitit te pare Informatik.

program prog_pare;

begin
 writeln ('Pershendetje ');
 writeln ('Une jam Elisa Reci ');
 writeln ('Student i vitit te pare Informatik.');
 readln;
end.


OSE

program prog_pare;

Var
 s: String;

begin
 writeln ('Ju lutem jepni emrin dhe mbiemrin tuaj');
 readln(s);
 writeln ('Pershendetje ');
 writeln ('Ju jeni ' , s);
 writeln ('Student i vitit te pare Informatik.');
 readln;
end.

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

2) Shkruani nje program ne gjuhen paskal ku 
merr si input 2 numra njeri i tipit integer dhe jep si output diferencen dhe 
heresin
program ushtrimi2;

var
 a, b,d:integer ;
 h:real;

Begin
 writeln ('Jepni 2 nr');
  readln ( a, b ) ;
 d := a-b ;
 h := a/b;
 writeln ('Diferenca eshte  = ',d, 'heresi eshte = ', h:2:2);
 readln ;
ENd.


-----------------------------------------------------------
3) Jepet ekuacioni y= X2 + 6X +2. Te ndertohet 
pseudokodi, bllokskema dhe programi ne 
paskal qe merr si input vleren e x dhe kthen 
vleren e y. 


program ushtrimi3;

var
 y,x:integer;

begin
 writeln ('Me jep vleren e x');
 readln (x) ;
 y:= x*x + 6*x + 2;
 writeln ('Funksioni ka vleren ' ,y);
 readln ;
end.
-----------------------------------------------------
4) Ndertoni pseudokodin, bllokskemen si dhe 
programin ne paskal i cili bazet ne gjetjen e 
inversit te nje numri cfaredo 


 program ushtrimi4;

var
 x:integer;
 y:real;
begin
 writeln ('Me jep vleren e x');
 readln (x) ;
 if x <> 0 then
 begin
  y:= 1/x;
 writeln ('inversi i ketij nr eshte ' ,y:2:2);
 end
 else
 writeln ('Ky invers nuk gjendet');
 readln ;
end.
---------------------------------------------------
5) Te gjendet siperfaqja dhe perimetri i 
drejtkendeshit. Gjatesite e brinjve jepen si 
input nga perdoruesit. Ndertoni pseudokodin 
dhe programin ne paskal.

program ushtrimi5;
var
 a,b:integer;
 p,s: integer ;
begin
 writeln ('Jep dy brinjet');
 readln (a,b);
 s:= a* b;
 p:= 2 * (a+ b);
 writeln ('Siperfaqja eshte ' , s, ' perimetri eshte ', p);
 readln ;
end.
----------------------------------------------
8) Te percaktohet me i madhi ndermjet 2 
numrave te dhene nga perduruesi. Fillimisht te 
ndertohet pseudokodi e pastaj programi ne 
paskal. 


program ushtrimi8;
var
 a,b,max:integer;

begin
 writeln ('Jep 2 nr');
 readln (a,b);
 if a > b then
  max:= a
  else
   max := b ;
 writeln ('Maksimumi eshte ', max);
   readln ;
end.


OSE

program ushtrimi8;
var
 a,b:integer;

begin
 writeln ('Jep 2 nr');
 readln (a,b);
 if a > b then
   writeln ('Maksimumi eshte ', a)
  else
 writeln ('Maksimumi eshte ', b);
   readln ;
end.
---------------------------------------------------
9)Te ndertohet nje pseudokod dhe program qe 
rendit nga me i madhe deri tek me i vogli tre 
numrat e dhene nga perdoruesi. 

program ushtrimi9;
var
 a,b,c:integer;

begin
 writeln ('Jepni 3 nr');
 readln (a,b,c);
 if (a>b) and (b>c) then
 writeln (a,' ', b, ' ',c)
 else
 if (a>c) and (c>b) then
 writeln (a,' ', c, ' ',b)
 else
 if (b>a) and (a>c) then
 writeln (b,' ', a, ' ',c)
 else
 if  (b>c) and (c>a) then
 writeln (b,' ', c, ' ',a)
 else
 if (c>a) and (a>b) then
 writeln (c,' ', a, ' ',b)
 else
 if (c>b) and (b>a) then
 writeln (c,' ', b, ' ',a)
 else
 writeln ('Vlerat jane te barabarta');
 readln ;
end.

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