var
a,b,P,S:real;
begin
readln(a);
readln(b);
P:=2*(a+b);
S:=a*b;
writeln('perimetr=', P);
writeln('ploshad=', S);
end.
Решение в прикрепленном файле.
Ввод - вывод программы
n = 10
<span>массив а:
</span><span>-11 -35 18 -16 54 19 -48 20 16 103
</span><span>массив b:
</span><span>18 54 19 20 16 103 -11 -35 -16 -48
</span><span>
</span>
151 Кбайт=154624 байт=1236992 бит
368640(???(исходя из логики в бит))=46080 байт=45 кбайт