Question

Программа, в которой с клавиатуры вводится слово, состоящее из чётного количества букв. Надо вывести на экран первую половину слова.

Answer 1

var

 s:string;

 i:longint;

begin

 readln(s);

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

end.