Середины сторон квадрата последовательно соединены найти периметр полученной фигуры в поскаль

Var
   a: integer;
   p: real;
begin
   writeln('Введите сторону квадрата:');
   readln(a);
   p := sqrt(2*sqr(a/2))*4;
   writeln('Периметр: ', p);
end.