В слове пол поменять первую буковку сколько существительных слов получится

выбирай procedure MakeArr(a: array of char); begin for var i := 0 to a.length - 1 do begin Write(a[i]); end; end;begin var a: string := 'Пол'; var c:= a.ToCharArray; for var i := 192 to 223 do begin c[0] := chr(i); MakeArr(c); writeln; end;end.

Пол - дескать, кол, вол, бол, тол, дол, гол

Ответ - 7 слов получится

Вол
Гол
Дол
Кол
Только это вспомнила