Есть сторона квадрата a=8.50 как найти периметр программа pascal abc

Var 
a,P:real;
begin
writeln('Введите сторону квадрата');
readln(a);
P:=a*a*a*a;
writeln('Периметр квадрата равен',P);
end.