Nhập số thực hỏi phép tính

Viết chuơng trình nhập 2 số thực, sau đó hỏi phép tính cần thực hiện.


uses crt;
var a,b,kq: real;
pt: char;
begin
 clrscr;
 write('Nhap 2 so a, b: ');
 readln(a,b);
 writeln ('Nhap phep tinh can thuc hien: ');
 readln(pt);
 case pt of
   '+' : kq:=a+b;
   '-' : kq:=a-b;
   '*' : kq:=a*b;
   '/' : kq:=a/b;
 end;
 write('Ket qua: ',kq:0:2);
 readln ;
end.