Измените данную программу так, чтобы на экран выводился символ введенного слова, стоящий посередине. (для слов с четным количеством букв - символ справа от середины.)

var s: string; n, k: integer;
begin
writeln('введи слово');
readln(s); n : = length(s);
writeln('последний символ - ', s[n]);
k : = pos(s[n], s);
if k = n then
writeln('символ один')
else
writeln('символ с индексом ', k)
end.

Silestya    3   21.11.2019 22:27    3