//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
Var
a, b: real;
begin
readln(a, b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln(a, ' ', b );
end.
Var S : String;
n : Byte;
Begin
Readln(S);
While Pos('а',S)>0 do
Begin
Inc(n);
S[Pos('а',S)]:='б';
end;
Writeln(S,' всего замен: ',n);
end.