Дана строка S. Удалите из неё среднюю букву, если длина строки нечётная или две средних в...

Question

Дана строка S. Удалите из неё среднюю букву, если длина строки нечётная или две средних в противном случае.
на паскале авс с полным решением пжл

Answer 1

Var s: string;
    n,m: integer;
begin
  write('строка:  ');  readln(s);
  n:=length(s);
  m:=n div 2;
  if n mod 2 = 1 then delete(s,m+1,1)
  else delete(s,m,2);
  writeln(s)
end.