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

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