👤

Elaborati un program care va calcula produsul a 8 numere intregi date de la tastatura,va rog mult!

Răspuns :

program produsul;

var
a, b, c, d, e, f, g, h : integer;
prod: Longint;

begin
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  readln(e);
  readln(f);
  readln(g);
  readln(h);
  prod := a*b*c*d*e*f*g*h;
  writeln(prod);
end.