program baigiai;
uses crt;
var x,y:longint;tong,tich,hieu:longint;thuong:real;
begin
 clrscr;
  write('x=');readln(x);
  write('y=');readln(y);
  tong:=x+y;
  tich:=x*y;
  if(x<y)then
        begin
         writeln('tong hai so la:',tong);
         writeln('tich cua hai so la:',tich);
         write('khong the thuc hien phep tru va chia vi x<y');
        end else
        begin
         thuong:=x/y;
         hieu:=x-y;
         writeln('tong hai so la:',tong);
         writeln('tich cua hai so la:',tich);
         writeln('thuong cua hai so la:',thuong);
         write('hieu cua hai so la:',hieu);
        end;
 readln;
end.

đây nhá bạn

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

End.