program ct_giai;

uses crt;

var a,b:integer;

begin

clrscr;

write('nhap 2 so a,b: ');readln(a,b);

writeln(a,'+',b,'=',a+b);

writeln(a,'-',b,'=',a-b);

writeln(a,'*',b,'=',a*b);

if b=0 then wrtiteln('b khong the chia cho a') else writeln(a,'/',b,'=',a/b);

readln;

end.

Program tinhtoan;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap'); Readln(a,b);

Writeln('Xuat');

Writeln(a,'+',b,'=',a+b);

Writeln(a,'-',b,'=',a-b);

Writeln(a,'*',b,'=',a*b);

If b<>0 then Writeln(a,'/',b,'=',a/b:5:1) else writeln('Khong the thuc hien duoc phep tinh vi mau so bang 0');

Readln

End.