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

Var L : Real;
Function PerKv(a : Real) : Real;
Begin
  PerKv:=a*4;
end;
Begin
  Write('Сторона квадрата: '); Readln(L);
  Write('Периметр квадрата: ',PerKv(L));
end.