Pascal, строки

Ввести число N и один символ сформировать строку, в которой символ повторяется N_раз.

Var

s, res: string;

n, i: integer;

begin

write ('Enter the number: ') ;

readln (n) ;

write ('Enter the string: ') ;

readln (s) ;

res : = '';

for i : = 1 to n do

res : = res + s;

write ('The resulting string: ', res)

end.

Example

Enter the number: 5

Enter the string: Five

The resulting string: FiveFiveFiveFiveFive

Var

N:integer;

C:Char;

Begin

Write ('N = ') ; ReadLn (N) ;

Write ('C = ') ; ReadLn (C) ;

For N: = 1 to N do

Write (C) ;

End.