Ответы и объяснения

2012-11-21T13:10:38+04:00

Program Pr1;

uses crt;

var a,b,c,d,e:integer;

Begin

clrscr;

writeln('Введите 4 числа');

readln(a,b,c,d);

e:=1;

e:=a*b*c*d;

writeln(e);

end.