var n,i:integer; symbol:string
begin
readln(n);
readln(symbol); //если известно, какой символ будет повторятся, убери эту строку и symbol:string в варе
for i:= 1 to n do
write(symbol);
end.
Поставь как лучший
var n,i:integer; symbol:string
begin
readln(n);
readln(symbol); //если известно, какой символ будет повторятся, убери эту строку и symbol:string в варе
for i:= 1 to n do
write(symbol);
end.
Поставь как лучший