Question

Известны ширина и длина прямоугольника. Сторона квадрата в два раза меньше длины прямоугольника. Найти периметры квадрата и прямоугольника

Answer 1

program perimetr;
var a,b:integer;
n:real;
begin
readln(a,b);
n:=b/2;
writeln('Периметр квадрата= ',4*n);
writeln('Периметр прямоугольника= ',2*a+2*b);
end.