t_16_25_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
заданный во входном файле текст (за ним следует точка) вывести в обратном порядке}
program t_16_25_v1 (input,output);
type list=^chain;
     chain=record elem:char; next:list end;
var c:char; p,l:list;
begin
    read(c);
    l:=nil;
    while c<>'.' do
          begin
               new(p); p^.elem:=c; p^.next:=l;
               l:=p; read(c);
          end;
    while l<>nil do
          begin
               write(l^.elem);
               l:=l^.next;
          end;
end.