Kalkulator

program kalkulator; var a,b:real; wybor:integer; begin writeln ('prosty kalkulator'); writeln ('co chcesz zrobic?'); writeln ('1 - dodawanie'); writeln ('2 - odejmowanie'); writeln ('3 - mnozenie'); writeln ('4 - dzielenie'); writeln ('5 - podniesc do kwadratu'); writeln ('6 - wyciagnac pierwiastek kwadratowy'); readln (wybor); case wybor of 1:begin write ('podaj a '); readln (a); write ('podaj b '); readln (b); write('a+b=', (a+b)); end; 2:begin write ('podaj a '); readln (a); write ('podaj b '); readln (b); write('a-b=', (a-b)); end; 3:begin write ('podaj a '); readln (a); write ('podaj b '); readln (b); write('a*b=', (a*b)); end; 4:begin write ('podaj a '); readln (a); write ('podaj b '); readln (b); write('a/b=', (a/b)); end; 5:begin write ('podaj a '); readln (a); write('a*a=', (a*a)); end; 6:begin write ('podaj a '); readln (a); write('pierwiastek z a', (sqrt(a))); end; end; end.