*Trong pascal div là một từ khóa nên mình thay bằng div1.
uses crt;
var x,y,sum,sub,mul,div1:extended;
begin
clrscr;
write('Nhap 2 so x,y: '); readln(x,y);
sum:=x+y;
sub:=x-y;
mul:=x*y;
div1:=x/y;
writeln('Tong: ',sum:0:2);
writeln('Hieu: ',sub:0:2);
writeln('Tich: ',mul:0:2);
writeln('Thuong: ',div1:0:2);
readln;
end.