
Ukazka jednoducheho programu, ktory ma vstup, nieco so vstupom 
robi a vypise nejaky vystup (rozne varianty na konci len ukazuju
rozne moznosti procedury writeln):

  program DruhyProgram;
  var i : integer;
      inadruhu : integer;
  begin
    { toto je komentar }
    writeln('-------------------------------');
    writeln('Toto je vypis z prveho programu');
    write('Zadaj cislo: ');
    readln(i);
    inadruhu:=i*i;
    writeln('Druha mocnina zadaneho cisla je: ', i*i);
    writeln('Druha mocnina zadaneho cisla je: ', inadruhu);
    writeln('Druha mocnina zadaneho cisla ', i, ' je: ', inadruhu);
  end.

*****************************************************************

1. Vstup: cel slo a          Vstup: objem a povrch kocky s hranou dky a

2. Vstup: cel sla a,b,c      Vstup: rieenia kvadratickej rovnice s koeficientami a,b,c

3. Vstup: kladn slo n        Vstup: vypsa zaradom sla 1 2 3 ... n

   Vstup: kladn prne slo n  Vstup: vypsa zaradom sla 2 4 6 ... n

   Vstup: kladn slo n        Vstup: vypsa zaradom sla n n-1 n-2 ... 3 2 1

4. Vstup: cel kladn a,b       Vstup: celoslen podiel a/b a zvyok pri delen a/b
                                (cyklom s postupnm odtanm, nie pomocou div a mod)

4. Vstup: cel kladn a,b       Vstup: najv spolon delite sel a,b (Euklidov algoritmus)
           
5. Vstup: kladn cel n a n kladnch sel     Vstup: set zadanch n kladnch sel
 
6. Pre zadan kladn cel n na obrazovku pomocou znaku X vykreslite rafovanie 
   do tvorca n krt n. Napr. pre n = 12:
 
   X  X  X  X  
     X  X  X  X
    X  X  X  X 
   X  X  X  X  
     X  X  X  X
    X  X  X  X 
   X  X  X  X  
     X  X  X  X
    X  X  X  X 
   X  X  X  X  
     X  X  X  X
    X  X  X  X 

7. Pre zadan kladn cel n na obrazovku pomocou znaku X vykreslite ikm lomen 
   iaru do tvorca n krt n. Napr. pre n = 10:

    XXXX  XXXX
      X  X  X
     X  X  X
    X  X  X  X
    X X  X  XX
    XX  X  X X
    X  X  X  X
      X  X  X
     X  X  X
    XXXX  XXXX

8. Pre zadan kladn cel n na obrazovku pomocou znaku X vykreslite pirlu 
   do tvorca n krt n. Napr. pre n = 7:

    XXXXXXX
          X
    XXXXX X
    X   X X
    X XXX X
    X     X
    XXXXXXX
 
 Poznmky k lohm 6, 7, 8:

 Ak pouijeme na zaiatku programu prkaz
  uses Crt;
 tak potom meme v programe riadi miesto vpisu na obrazovku pomocou procedry 
  GotoXY(stlpec,riadok);
 ktor nastav miesto, odkia sa zane vypisova, na zadan pozciu a procedrou
  ClrScr;
 vymaeme obrazovku. Take naprklad program

 program VYPIS_DO_STREDU;
 uses Crt;
 begin
  ClrScr;
  GotoXY(26,12);
  writeln('Tu je stred obrazovky');
 end.

 vype uveden text zhruba niekde do stredu (Znak "T" bude na pozcii 26,12).
 (avy horn roh ma sradnice 1,1.)
