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

Program;
Uses crt;
Var a:real;
Begin
Writeln('Введите сторону ромба');
Read(a);
P:=a*a;
Writeln('Периметр ромба равен');
End