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

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