var n, i: integer; S: string; begin readln(n); readln(S); i := 1; while (i <= n) do begin if (S[i] = '.') then begin insert('..', S, i); i := i + 2; n := n + 2; end; i := i + 1; end; writeln(S); end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var a,n,k,i,j,s:integer; begin writeln('Количество учеников и количество оценок'); readln(n,k); for i:=1 to n do begin for j:=1 to k do begin write('Ученик № ',i, ' оценка № ',j,' = '); readln(a); s:=s+a; end; end; println('Средняя оценка группы ',s/(n*k):6:3); end.
n, i: integer;
S: string;
begin
readln(n);
readln(S);
i := 1;
while (i <= n) do
begin
if (S[i] = '.') then
begin
insert('..', S, i);
i := i + 2;
n := n + 2;
end;
i := i + 1;
end;
writeln(S);
end.