program tinh;

uses crt;

var a, b, c : integer ;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

write('nhap so nguyen c :');readln(c);

writeln('tong ba so nguyen duong a, b, c la :', a+b+c);

writeln('tich ba so nguyen duong a, b, c la :', a*b*c);

readln

end.

program bt;

Uses crt;

Var

           a,b,c:integer;

begin

           Clrscr;

          write('Nhap a: '); readln(a);

          write('Nhap b: '); readln(b);

          write('Nhap c: '); readln(c);

          write('Tong la: ',a+b+c);

          write('Tich la: ',a*b*c);

          readln;

end.

#HN

#Chuc_em_hoc_tot