Câu 1
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 {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi}
    Writeln(a,'/',b,'=',a/b);
    readln;
End.