Var i,p: integer;
begin
i:=2;
p:=1;
repeat
p:=p*i;
i:=i+2;
until i>10;
writeln('произведение: ',p);
end.
произведение: 3840
Потому что он не запраграмирован
х+y=462
1)х - 1 слагаемое
2) х/10 = y - 2 слагаемое
3)х+х/10=462
10х+х=4620
11х=4620
х=420
y=420/10
y=42
итого: 420+42=462