Question

ПОМОГИТЕ
Известны длины сторон прямоугольника а, b. Напишите программу, вычисляющую периметр этого прямоугольника.

Answer 1

var a,b, DeadCodeWriter, Perimetr: real;

begin

write('Введите первую сторону в см: ');

readln(a);

write('Введите вторую сторону в см: ');

readln(b);

Perimetr:=2*(a+b);

write('Периметр равен ',Perimetr);

readln;

end.