viết chương trình nhập 3 số nguyên a;b;c vào từ bàn phím sau đó tính và in ra kết quả M;N và P biết :M:=a+b+c ; N:=ab+bc+ac; P:=abc

program tinh;

uses crt;

var a, b, c, M, N, P : integer;

begin

clrscr;

write('nhap lan luot so nguyen a, b, c :');readln(a, b, c);

M := a + b + c ;

N := a*b + b*c + a*c ;

P := a*b*c;

writeln('ket qua M la :', M);

writeln('ket qua N la :', N);

writeln('ket qua P la :', P);

readln

end.