program Programovanie_27;
uses crt;
var a,b : real;
    moznost: integer;
    moznost2: string;
    opakovat: boolean;

begin

     repeat
          { vycistime si obrazovku }
          clrscr;

          { vstupy }
          writeln('Zadajte prve cislo: ');
          readln(a);
          writeln('Zadajte druhe cislo: ');
          readln(b);

          { vypis menu a citanie uzivatelovej moznosti }
          writeln;
          writeln('-----------MENU------------');
          writeln('1 - scitanie');
          writeln('2 - odcitanie');
          writeln('3 - nasobenie');
          writeln('4 - delenie');
          writeln('---------------------------');
          write('Vyberte moznost: ');
          readln(moznost);
          writeln;

          { vypocet a vypis podla zadanej moznosti }
          if (moznost = 1) then
               writeln(a:0:4, ' + ', b:0:4, ' = ', (a+b):0:4)
          else if (moznost = 2) then
               writeln(a:0:4, ' - ', b:0:4, ' = ', (a-b):0:4)
          else if (moznost = 3) then
               writeln(a:0:4, ' x ', b:0:4, ' = ', (a*b):0:4)
          else if (moznost = 4) then
               writeln(a:0:4, ' / ', b:0:4, ' = ', (a/b):0:6)
          else
              writeln('Nespravna moznost.');

          { opakovanie celeho procesu ak uzivatel zada a alebo A }
          writeln;
          write('Opakovat? a/n: ');
          readln(moznost2);
          if (moznost2 = 'a') or (moznost2 = 'A') then
              opakovat := true
          else
              opakovat := false;

     until opakovat=false;

end.