PascalABC. Дано целое число N (> 0) и символ C

[Евгений1240]

PascalABC. Дано целое число N (> 0) и символ C

Помогите решить. В PascalABC
String8. Дано целое число N (> 0) и символ C. Вывести строку длины N, которая состоит из символов C.

 

[Vladimir_S]

Помогите решить. В PascalABC
String8. Дано целое число N (> 0) и символ C. Вывести строку длины N, которая состоит из символов C.

Да... воистину - задача века!

Var
 N,i:Byte;
 S:String;
 C:Char;
Begin
 Write('String length N (<256) = ');
 Readln(N);
 Write('Symbol = ');
 Readln(C);
 S:='';
 For i:=1 to N do S:=S+C;
 Writeln(S);
 Readln
End.

Только вот, извините, но я у себя на компьютере всякой дряни типа порно или Паскаля АВС не держу, так что тестировалось на Free Pascal. Если будут проблемы - сообщите.