program TinhTongTich;
uses crt;
var a, b, c, tong, tich : integer;
begin
  clrscr;
  write('Nhap so nguyen thu nhat: ');
  read(a);
  write('Nhap so nguyen thu hai: ');
  read(b);
  write('Nhap so nguyen thu ba: ');
  read(c);
  tong := a + b + c;
  tich := a*b*c;
  writeln('Tong ba so nguyen la: ', tong);
  writeln('Tich ba so nguyen la: ', tich);
  readln;
end.

program tich;

uses crt;

var a, b, c, s, t : integer;

begin

clrscr;

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

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

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

t := a+b+c;

s :=a*b*c;

writeln('tong ba so la :', t);

writeln('tich cua ba so la :', s);

readln

end.