Program homework;
Var a,b,k,c:integer;
Begin
Writeln('Vvidite 4 chisla');
Readln(a);
Readln(b);
Readln(k);
Readln(c);
w:=a*b*k*c;
Writeln('a*b*k*c=W');
End.