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

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