Program
Tong_hieu_tich_thuong;
Uses
crt;
Var
a:
integer
;
b:
integer
;
Begin
clrscr;
write
(
'nhap so thu 1 :'
);
readln(a);
writeln
(
'ban vua nhap so: '
,a);
write
(
'nhap so thu hai :'
);
readln(b);
writeln
(
'ban vua nhap so thu 2: '
,b);
Writeln
(a,
'+'
,b,
'='
,a+b);
Writeln
(a,
'-'
,b,
'='
,a-b);
Writeln
(a,
'*'
,b,
'='
,a*b);
if
b<>
0
then
Writeln
(a,
'/'
,b,
'='
,a/b);
readln;
End
.