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

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