uses crt; {nacteni jednotek - crt - pro mazani obrazovky, pokud neni nactena
nelze zavolat v prubehu programu clrscr;}
var z: char;  {deklarace promennych - z-znak}
    a,b: real; {a,b - realne hodnoty - desetinne cisla}
    i:integer; {i - celociselne cislo x)}

begin {zacatek vlastniho tela programu}
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
begin

write('Zadej a: '); {napise a neodradkuje}
readln(a);   {nacita data z klavesnice do A}
writeln('DO a se ulozilo: ',a:5:2,' toto '); { Vypis text a hodnotu A na celkem 5 cisel z toho 2 desetinne}

{cyklus for}
writeln;
writeln('Cyklus for');
for i:=1 to 10 do {pro I od 1 do 10 delej:}
    {for ma predem dany pocet cyklu}
    begin {musi se uvest, pokud prikaz obsahuje vic nez jeden prikaz}
          writeln('Toto je ',i,' cyklus');
    end; {ukoncuje begin}

{cyklus repeat}
writeln;
writeln('Cyklus repeat');
i:=0; {smaz hodnotu, ktera je ulozena v I - zapis do nej 0}
repeat {opakuj}
       {cyklus s predem neznamym poctem opakovani, provede se alespon jednou - podminka je totiz az na konci}
       i:=i+1; {v kazdem cyklu nacti i a pricti k nemu 1}
       {telo programu}
       writeln('Cyklus repeat pruchod: ',i);
until i=10; {dokud I se nerovna 10}

{cyklus while}
writeln;
writeln('Cyklus while');
i:=0;
while i<10 do {dokud i<10 delej:}
{neznamy pocet opakovani, cyklus se nemusi provest ani jednou, pokud bude splnena podminka}
      begin
           i:=i+1;
           writeln('Cyklus while ppruchod: ',i);

      end;

{if then else}
{kdyz PODMINKa then tak delej PRIKAZ1 else (jinak) PRIKAZ2}
writeln;
writeln('if then else');
write('Hodnota a je: ',a:3:0,', zaedej hodnotu b:');readln(b);
if a>b then {pokud zadavame i rovno, tak se pise: =>, =< a nebo nerovna se <> (ruzne od)}
   begin
        writeln('A je vetsi, nez B');
   end {pred else se NIKDY!!!! nepise strednik}
else
    begin
         writeln('A je mensi, nez B');
    end;

end;
writeln;
writeln('-----------------------------------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end. {ujplny konec programu. cpo je za end. se ignoruje, end. je v celem
programu jen a pouze jednou, jinak end;}