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

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