{Nahradte cyklus repeat cyklem while tak, aby program zustal funkcne ekvivalentni}

program kalkulacka;

var
   a, b  : integer;
   volba : integer;

begin
   repeat
      writeln('1 = scitani cisel');
      writeln('2 = nasobeni cisel');
      writeln('3 = konec');
      write('Zadejte vasi volbu ');
      readln(volba);
      if (volba = 1) or (volba = 2) then
         begin
            write('Zadejte 1. cislo ');
            readln(a);
            write('Zadejte 2. cislo ');
            readln(b);
            if volba = 1 then
               writeln(a, '+', b, '=', a+b)
            else
               writeln(a, '*', b, '=', a*b);
         end;
   until volba = 3;
end.