program ten;

uses crt;

var a, b, tong, hieu, tich : integer;

      thuong : real;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

tong := a + b ;

hieu := a - b;

tich := a * b ;

thuong := a/b;

writeln('tong hai so la :', tong);

writeln('hieu hai so la :', hieu);

writeln('tich hai so la :', tich);

writeln('thuong hai so la :', thuong:4:2);

readln

end.

 PROGRAM: Nguyen_Van_A;     

 Uses crt;

 Var a,b,S,V,T,H:real;

 Begin;  

         clrscr;

          Write('Nhap so a: '); readln(a);

          Write('Nhap so b: '); readln(b);

           T:=a/b

            H:=a-b     

            V:=a*b

            S:= a + b

        Writeln('Tong cua a va b la: S,');

        Writeln('Hieu cua a va b la: H,');

        Writeln('Tich cua a va b la: V,');

        Writeln('Thuong cua a va b la: T,');

        Readln;

End.