var m1,m2 : real;
begin
write ('m1 : '); readln (m1);
write ('m2 : '); readln (m2);
writeln (' Tong :', m1+m2);
writeln (' Hieu :', m1-m2);
writeln (' Tich :', m1*m2);
writeln (' Thuong :', m1/m2);
readln;
end.
15 năm trước em khẳng định bài em làm là đúng, giờ chắc gần đúng :d