Question

Помогите с задачей по информатике
(pascal)

70d46b3c22fbe9ecd275ed111f279ff5.docx

Answer 1

program  rectangle;

var  a, b, perimeter, area: real;

begin

 writeln('Сторона a: ');

 // writeln('Input a: ');

 readln(a);

 writeln ('Сторона b: ');

 // writeln('Input b: ');

 readln(b);

 perimeter := 2 *(a + b); area := a * b;

 writeln ('Периметр: ', perimeter);

 writeln('Площадь: ', area);

 //writeln ('Perimeter: ', perimeter);

 //writeln('Area: ', area);

end.