[chainik]

действительно несложно.
мог бы и сам подумать.

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,DateUtils;

var
ch:char;
s:string;
begin
s:='';
    repeat
    read(ch);
    s:=ch+s;
    until ch=#13;
writeln(s);
readln;
readln;
end.