Составьте алгоритм и реализуйте его в виде программы подсчитывающей количество символов введённых с клавиатуры и затем выводящей эту последовательность символов в обратном порядке

Допустим символы вводятся до символа "." - точка.

Точку в количество включать не будем

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.