4) Implementoni ne paskal nje program qe merr si konstante
 nje shkronje K= ‘A‘ dhe i kerkon perdoruesit te 
jap nje shkronje tjeter „S“...pastaj ben afishim e te gjitha shkronjave nga A...S.

program ushtrimi4;

const
 k= 'a' ;
var
 i, n :char;
begin
 writeln ('Jepni deri tek cila shkronje doni te behet afishimi');
 readln (n);
 for i:= k to n do
  write (i, ' ');
readln;
End.

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

5) Ndertoni ne paskal nje program qe perdor 
ciklin repeat I cili tregon “A perseritet ekzekutimi ”
 nqs perdoruesi vendos si input “PO” ose “JO”…
•Nqs po ath fjalia “A perseritet ekzekutimi ” do te perseritet perndryshe jo

Program ushtrimi5;

var
 pergjigje : string;

Begin
 repeat
  writeln ('A perseritet ekzekutimi (Shkruaj PO ose JO )');
  readln (pergjigje);
 until (pergjigje = 'jo');
 writeln ('Nderpritet ekzekutimi');
readln ;
End.
---------------------------------------

6) Shkruani nje program qe I kerkon perdoruesit
 te jap nje nr ndermjet 1 dhe 10 ..
Nqs perdoruesi nuk jep nje nr te tille ath ben 
nje While te ketij cikli duke I kerkuar edhe nje here te jap nje nr 1..10

Program ushtrimi6;

var
 n:integer;

Begin
 writeln ('Jepni nje numer');
 readln (n);
 while (n < 1 ) or (n >10 ) do
  begin
   writeln ('Input i gabuar.Jepni nje numer ndermjet 1 dhe 10 ') ;
   readln (n);
  end;
 writeln ('Input i sakte. Ju keni dhene nje shifer ndermjet 1..10 qe eshte vlera ', n);
readln ;
End.