program kalkulator;

var a,b,c,wynik:real;
    zn:char;

begin

repeat
     writeln ('   ----------');
     writeln ('   KALKULATOR');
     writeln ('   ----------');
     write ('podaj liczbe: ');
     readln(a);
     write ('podaj druga liczbe: ');
     readln(b);
     write('znaq dzialania: ');
     readln (zn);
     case zn of
          '+': begin
                    wynik:=a+b;
                    writeln ('wynik dodawania: ', wynik:0:0);
               end;
          '-': begin
                    wynik:=a-b;
                    writeln ('wynik odejmowania: ', wynik:0:0);
               end;
          '*': begin
                    wynik:=a*b;
                    writeln ('wynik mnozenia: ', wynik:0:0);
               end;
          '/': begin
                    if b=0 then
                       writeln('nie mozna dzielic przez zero...')
                    else
                        begin
                             wynik:=a/b;
                             writeln ('wynik dzielenia: ', wynik:0:2);
                        end;
               end;
          else
              writeln('nie ma takiego dzialania');
              writeln('uzyj znakow: +  -  *  / ');
          end;

    writeln; writeln;
    writeln('Zakonczyc program ?');
    writeln('1. Tak');
    writeln('2. Nie');
    readln(c);

    writeln;writeln;writeln;writeln;
until c=1;
end.