program qqq;
const n=15;
var
s,i:integer;
a:array[1..n] of integer;
b:array[1..n] of integer;
begin
for i:=1 to n do begin
writeln('Введите a[',i,']');
read(a[i]);
end;
writeln('Введенный массив');
for i:=1 to n do
write(a[i],'');
for i:=1 to n do
if (i>=3) and (i<=12)
then b[i]:=-sqr(a[i]) else b[i]:=a[i]-1;
writeln('Полученный массив');
for i:=1 to n do
write(b[i] ,'');
end.