// Khai báo 2 biến x, y nhận giá trị số bất kì
// Khai báo các biến sum, sub, mul, div lần lượt gán giá trị tổng, hiệu, tích, thương của x, y cho từng biến.
// Khai báo 2 biến x, y nhận giá trị số bất kì
// Khai báo các biến sum, sub, mul, div lần lượt gán giá trị tổng, hiệu, tích, thương của x, y cho từng biến.
*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.
Ảnh