Функция СОРУ.

[Dmetrey]

Скажите пожалуйста как написать программу в PascalABC. где при вводе любого слова, оно выводиться на экран в двойне, т.е. копируется два раза через функция СОРУ.

[Mad_Cat]

var s:string;
begin
readln(s);
s:=s+copy(s,1,length(s));// изврат
writeln(s);
end.

s:=s+s; // так не проще

Я просто паскаль вообще не знаю, а помочь надо знакомому

А чего лез то тогда?

[Dmetrey]

Я знаю я оборзел, но нельзя ли полностью прогу написать? Я просто паскаль вообще не знаю, а помочь надо знакомому.