Как я тебя понял, языки программирования это C1 и Java
Var
ch,otv,perv,last:Integer;
begin
WriteLn('Введите число');
readln(ch);
last:=ch mod 100;
ch:=ch div 100;
perv:= ch div 10;
ch:=ch div 10;
otv := perv*1000+4*100+last;
WriteLn('Ответ: ',otv)
end.
пж как лучший
===== PascalABC.NET =====
begin
var a := ArrGen(42, i -> 7 * i, 1);
a.Println
end.
var
a : integer;
fac : BigInteger := 1;
begin
readln(a);
if a > 0 then for var i := 1 to a do fac *= i;
writeln(a, '!=', fac);
end.