Question

составить программу которая определяет вторую цифру четырёхзначного числа, и заменяет её на 4

Answer 1

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.


пж как лучший