uses crt;
var a,b,s,h,t,th:extended;
begin
        clrscr;
        write('Nhap so thu 1: ');readln(a);
        repeat
                write('Nhap so thu 2: ');readln(b);
                if b=0 then writeln('NHAP LAI!');
        until b>0;
        s:=a+b;h:=a-b;t:=a*b;th:=a/b;
        writeln('Tong: ',s:0:2);
        writeln('Hieu: ',h:0:2);
        writeln('Tich: ',t:0:2);
        write('Thuong: ',th:0:2);
        readln;
end.

Viết chương trình tính tổng , hiệu , tích , thương của 2 số được nhập vào bàn phím

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.