Какими бывают середовища виконнаня алгоритмив?

jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

954-459=495

все условия соблюдены

смотри скриншот