Question

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

Answer 1

Program aliona;
var a,b:integer;
c,p1,p2:real;
begin
writeln('vvedite sirinu =');
readln(a);
writeln('vvedite dlinu=' );
readln(b);
p1:=0;
p2:=0;
c:=b/2;
p1:=(a+b)*2;
p2:=4*c;
writeln('p1=',p1,'p2=',p2);
readln;
end.