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.
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.