program ukol2;

var
   a,b:integer;

begin

     write('Zadejte prvni cislo: ');
     readln(a);

     write('Zadejte druhe cislo: ');
     readln(b);

     writeln('----------------------');
     writeln;
     writeln('Soucet cisel ',a,' a ',b,' je: ',a+b);
end.

program ukol3;

const
     spotreba=10;
var
   n:integer;
   d,v:real;

begin
     write('Zadejte prumer nadrze v metrech [m]: ');
     readln(d);

     write('Zadejte pocet osadniku: ');
     readln(n);

     writeln('-------------------------------------');
     writeln;

     v:=1/6*pi*d*d*d;

     writeln('Nadrz o objemu ',v:2:2,' metru krychlovych,');
     writeln('presneji ',(v*1000):2:0,' litru, vystaci ',n,' osadnikum');
     write('na ',((v*1000)/(n*spotreba)):0:0,' dnu');
     writeln(' pri spotrebe ',spotreba,' litru na osobu a den');
end.

program ukol4;

var a,b:integer;

begin

     write('Zadejte prvni cislo: ');
     readln(a);

     write('Zadejte druhe cislo: ');
     readln(b);

     writeln;
     writeln('----------------------');
     writeln;

     if a>b then writeln('Vetsi je prvni cislo: ',a)
     else if a=b then writeln('Cisla jsou si rovna')
      else writeln('Vetsi je druhe cislo: ',b);
end.

program ukol5;

var a,b,c,D:real;

begin

     write('Zadejte koeficient a: ');
     readln(a);

     write('Zadejte koeficient b: ');
     readln(b);

     write('Zadejte koeficient c: ');
     readln(c);

     writeln;
     writeln('----------------------');
     writeln;

     D:=sqr(b)-4*a*c; {vypocet diskriminantu}

     if D<0 then writeln('Rovnice nema realne reseni')
     else if D=0 then writeln('Rovnice ma 1 koren: ', -b/(2*a):0:2)
      else
       begin
        write('Rovnice ma 2 koreny: ',(-b-sqrt(D))/(2*a):0:2);
        writeln(' a ',(-b+sqrt(D))/(2*a):0:2);
       end;
end.

program ukol6;
var
   sazba:integer;
   d:real;
begin
     write('Zadejte ujetou vzdalenost: ');
     readln(d);

     if d<0 then begin
      writeln('Spatne zadani');
      exit;
     end;

    case trunc(d) of
      0..19 :sazba:=25;
      20..39:sazba:=23;
      40..59:sazba:=20;
     else sazba:=17;
    end;

     writeln('------------------------------');
     writeln;
     writeln('Za ',d:0:2,' km zaplatite: ',(d*sazba):0:2,' Kc');
end.

program ukol7;

uses crt;

const spotreba=10;

var n:integer;          {n=pocet osadniku}
    a,b,d,v,objem:real; {a,b=strany podstavy; v=vyska}
                        {d=prumer podstavy/koule}

begin
     writeln('Vyberte tvar nadrze:');   {menu}
     writeln('Kvadrova nadrz - "K"');
     writeln('Valcova  nadrz - "V"');
     writeln('Kulova   nadrz - "O"');
     writeln('Konec - ostatni klavesy');
     writeln('-----------------------');
     write('Vase volba?');

     case UpCase(ReadKey) of {prevede na velka pismena}
     'K':begin
          writeln('  K V A D R');
          write('Zadejte prvni stranu podstavy [m]: ');
          readln(a);
          write('Zadejte druhou stranu podstavy [m]: ');
          readln(b);
          write('Zadejte vysku kvadru [m]: ');
          readln(v);
          objem:=a*b*v;
         end;
     'V':begin
          writeln('  V A L E C');
          write('Zadejte prumer podstavy [m]: ');
          readln(d);
          write('Zadejte vysku valce [m]: ');
          readln(v);
          objem:=pi*sqr(d)/4*v;
         end;
     'O':begin
          writeln('  K O U L E');
          write('Zadejte prumer nadrze v metrech [m]: ');
          readln(d);
          objem:=1/6*pi*d*d*d;
         end;
      else exit;  {stisknuti ostatnich klaves => ukonceni programu}
     end;

     write('Zadejte pocet osadniku: ');
     readln(n);

     writeln('-------------------------------------');

     writeln('Nadrz o objemu ',objem:2:2,' metru krychlovych,');
     writeln('tedy ',(objem*1000):2:0,' litru, vystaci ',n,' osadnikum');
     write('na ',((objem*1000)/(n*spotreba)):0:0,' dnu');
     writeln(' pri spotrebe ',spotreba,' litru na osobu a den');
end.

program ukol8;

uses crt;
var
   znak:char;

begin
   clrscr;
   for znak:='a' to 'z' do write(znak); {vypis malych znaku}
   writeln;
   for znak:='A' to 'Z' do write(znak); {vypis VELKYCH ZNAKU}
end.

program ukol9;

uses crt;

var
   i:integer;
   text:string;
begin
     clrscr;

     write('Zadejte text k vypisu: ');
     readln(text);

     for i:=1 to 80 do write('-'); {oddeleni carou         }
                                   {sirka radky je 80 znaku}
     for i:=1 to length(text) do
      begin
       write(copy(text,i,1)); {vypise vzdy 1 znak z retezce text}
       delay(100);            {prodleva 100 milisekund}
      end;
end.