N=16
нет не отвечаю это очень легко
var a,b, P: real;
begin
write(' Введите длины сторон прямоугольника: ');
readln(a,b);
P:=2*(a+b);
write('периметр (P) = ',P);
readln;
end.
Ответ:Блин,тоже олимпиада.Я тоже не могу это сделать.А ты сделал 1,3,4
Объяснение: