Ответ:

паскаль

uses crt;

var a,b,P:integer;

   w:char;

begin

writeln ('Введите геометрическую фигуру 1-квадрат 2-прямоугольник');

readln(w);

if w='1' then

begin

 write ('Введите сторону квадрата a=');

 read(a);

 P:=a*4;

 write('P= ',P);

end

else if w='2' then

begin

 writeln('ВВедите a и b');

 readln(a,b);

 P:=(a+b)*2;

 write('P=',P);

end

else write('Такой фигуры нет')

end.

Объяснение: