Viết chương trình nhập từ bàn phím 2 số thực C,D khác nhau và in ra màn hình tổng,hiệu,tích,thương của nó . Mong mọi người giúp em giải bài này.

Program tinhtoan;

uses crt;

var tong,hieu,tich,thuong: real;

a,b: integer;

begin

clrscr;

write('Nhap so a ='); readln(a);

write('Nhap so b ='); readln(b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a div b;

writeln('Tong cua 2 so a va b =' ,tong);

writeln('Hieu cua 2 so a va b =' , hieu );

writeln('Tich cua 2 so a va b =',tich);

writeln('Thuong cua 2 so a va b =' ,thuong);

readln;

end

uses crt;

var C, D : real;

begin

clrscr;

write('Nhap hai so C, D : '); readln(C, D);

writeln('Tong = ', C + D : 2 : 2);

writeln('Hieu = ', C - D : 2 : 2);

writeln('Tich = ', C * D : 2 : 2);

writeln('Thuong = ', C / D : 2 : 2);

readln

end.