Uses Crt;

Var a,b : real;

        s : char;

Begin

 Clrscr;

 Write('Nhap so thu nhat : '); Readln(a);

 Write('Nhap so thu hai : '); Readln(b);

 Write('Nhap phep tinh : '); Readln(s);

 If s ='+' then Writeln('Tong cua 2 so la ',a+b:1:2);

 If s='-' then Writeln('Hieu cua 2 so la ',a-b:1:2);

 If s='/' then Writeln('Thuong cua 2 so la ',a/b:1:2);

 If s='*' then Writeln('Tich cua 2 so la ',a*b:1:2);
 Readln

End.

a=float(input('nhap so thuc thu nhat: '))
b=float(input('nhap so thuc thu hai: '))
pt=input('nhap phep tinh: ')
if (pt=='+'):
    print(a+b)
elif (pt=='-'):
    print(a-b)
elif (pt=='/'):
    print(a/b)
elif (pt=='*'):
    print(a*b)
else:
    print('phep tinh khong hop le!')

$\color{red}{\text{#Daoanhviet96}}$