Программа, в которой с клавиатуры вводится слово, состоящее из чётного количества букв. Надо вывести на экран первую половину слова.
var
s:string;
i:longint;
begin
readln(s);
for i:=1 to length(s) div 2 do write(s[i]);
end.