program bt;
uses crt;
var a,b,c,d,e: integer; j: real;
begin
clrscr;
writeln('nhap so a: '); readln(a);
writeln('nhap so b: '); readln(b);
c:= a+b;
d:= a-b;
e:= a*b;
j:= a/b;
writeln('tong hai so ',a,' ',b,' la: ',c);
writeln('hieu hai so ',a,' ',b,' la: ',d);
writeln('tich hai so ',a,'  ',b,' la: ',e);
writeln('thuong hai so ',a,' ',b,' la: ',j:1:0);
readln
end.

Program So_nguyen;

Uses Crt;

Var a,b: real;

      pt: char;

Begin

CLRSCR;

Writeln ('Nhap a='); Readln (a);

Writeln ('Nhap b='); Readln (b);

Writeln ('nhap phep tinh'); Readln (pt);

If pt='+' then writeln ('tong cua hai so la',a+b);

If pt='-' then writeln ('hieu cua hai so la', a - b);

If pt='*' then writeln ('tich cua hai so la', a * b);

If pt='/' then writeln ('thuong cua hai so la', a / b);

Readln;

End.