Составьте программу, формирующую строку, образованную любым количеством любого символа (количество и символ вводятся с клавиатуры).
Помогите пожалуйста решить на Free Pascal

var c:char; n,i:integer; s:string;beginwrite('Введите символ: ');readln(c);write('n = ');readln(n);s:='';for i:=1 to n do s:=s+c;writeln(s);end.Пример:Введите символ: fn = 5fffff