Допустим символы вводятся до символа "." - точка.
Точку в количество включать не будем
var
i,j: integer;
s: array[1..255] of char;
begin
while s[i]<>. do
begin
read(s[i]);
inc(i);
end;
writeln(i);
for j:=i downto 1 do
write(s[j]);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.