Var
s:string;
begin
Writeln('Введите строку');
Readln(s);
Delete(s,1,2);
Writeln(s)
end.
12211
проверь, что так получится из 4 сделать 25
Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно.
Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D