viết chương trình nhập 3 số từ bàn phím và hiển thị kết quả ra màn hình tổng và tích của 3 số đó

Program tinh;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap so thu nhat: ');readln(a);

write('nhap so thu hai: ');readln(b);

write('nhap so thu ba: ');readln(c);

write('tong cua ba so ',a,',',b,',',c,' la: ',a+b+c);

write('tich cua ba so ',a,',',b,',',c,' la: ',a*b*c);

readln

end.

Program Tong_tich_ba_so;

Uses crt;

Var a,b,c:real;

Begin

Write('nhap a=');

Readln (a);

Write('nhap b=');

Readln(b);

Write('nhap c=');

Readln (c);

Tong:=a+b+c;

Writeln ('tong ba so la:', tong:2:1);

Tich:=a*b*c;

Writeln('tich ba so la:', tich:2:1);

Readln;

End.