for i := 1 to n do

   begin

       sakiniai

       . . .

   end;

 

//Keliam laipsniu

program laipsnis;

    var i, sk, laips, ats : integer;

begin

  WriteLn('Iveskite skaiciu');

  ReadLn(sk);

  WriteLn('Kokiu laipsniu kelsime?');

  ReadLn(laips);

 

  //priskiriam pradine reiksme atsakymui

  ats := 1;

 

  //sukam cikla

  for i:=1 to laips do

    begin

    ats := ats*sk;

    end;

 

  writeln('Gautas rezultatas = ', ats);

 

  //paprastesnis variantas nesukant ciklo

  //ats := sk**laips;

  //writeln('Gautas rezultatas = ', ats);

 

  Readln();

end.

program olimpiada;

 var i, s : longint;

begin

  s := 0;

  for i := 1896 to 2011 do

    begin

        if i mod 4 = 0 then

            begin

                s := s + 1;

                WriteLn( i , 'm.' , ' ivyko ' , s , ' olimpiada' );

            end;

    end;

  WriteLn( '=======================================' );

  WriteLn( 'Jau ivyko ' , s , ' olimpiada' );

  Readln;

end.

program Visi_dvizenkliai_skaiciai;

 

 var i, d, n : integer;

     a, b, sum : integer;

begin

  d := 0;

  n := 0;

  for i := 10 to 99 do

   begin

      a := i div 10;

      b := i mod 10;

      sum := a + b;

      if i mod sum = 0 then d := d + 1

                       else n := n + 1;

   end;

  WriteLn( d , ' dviženkliai(-ių) skaičiai(-ių) dalinasi iš jų skaitmenų sumos'  );

  WriteLn( n , ' dviženkliai(-ių) skaičiai(-ių) nesidalinasi iš jų skaitmenų sumos'  );

  Readln;

end.