Program Chuongtrinh;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write('Nhap so x va y:');

Readln(x,y);

Writeln('Tong cua ',x,' va ',y,' la:', x+y);

Writeln('Tich cua ',x,' va ',y,' la:', x*y);

If x>y then writeln('Hieu cua ',x,' va ',y,' la:', x-y) else writeln('Hieu cua ',x,' va ',y,' la:', y-x)

If x>y then writeln('Thuong cua ',x,' va ',y,' la:', x/y) else writeln('Thuong cua ',x,' va ',y,' la:', y/x)

Readln

Program tinhtoan;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write('x=');Readln(x);

Write('y=');Readln(y);

Writeln('Tong cua x va y la:',x+y);

Writeln('Tich cua x va y la:',x*y);

If x>y then writeln('Hieu cua x va y la:',x-y) 

          else writeln('Hieu cua x va y la:',y-x);

If x>y then writeln('Thuong cua x va y la:',x/y) 

          else writeln('Thuong cua x va y la:',y/x);

Writeln('Nhan Enter de ket thuc');

Readln;

End.