Question

помогите пожалуйста даю 15 баллов ​

Answer 1

Объяснение:

program 123;

var a,b,c,v: integer;

begin

writeln('Введите две стороны:');

readln(a, b);

c:=(a+b) + (a+b);

v:= a * b;

writeln('Периметр равен: ' + c);

weiteln('площадь равна: ' + v);

end.