program av;
var a,b,c,d,e,f:integer;
begin
writeln('введите числа ');
readln(a,b,c,d);
if (b<0) and (d<0)
then begin e:=b*d; writeln(e); end;
if (a>10) and (c>10)
then writeln(a,'0 ',b,'0 ',c,'0 ',d'0 ');
if (b<0) and (d<0) and (a>10) and (c>10)
then writeln(a,' ',b,' ',c,' ',d,' ')
else begin
a:=a/10;
b:=b/10;
c:=c/10;
d:=d/10;
writeln (a,' ',b,' ',c,' ',d,' ');
end;
end.