</em></u>// PascalABC.NET 3.0, сборка 1073 var i,n:integer; s:string; begin Write('Введите свое имя: '); Readln(s); if s[1]='И' then begin n:=Length(s)-1; s:=s[1]; for i:=1 to n do s:=s+'*' end; Writeln('Результат работы: ',s) end.
<em><u>Тестовое решение:</u></em> Введите свое имя: Игорь Результат работы: И****
Введите свое имя: Сергей Результат работы: Сергей
<em><u>2. Решение, каким оно должно быть, но этому не учат</u></em>
// PascalABC.NET 3.0, сборка 1073 begin var s:=ReadString('Введите свое имя: '); if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1); Writeln('Результат работы: ',s) end.