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

Не совсем так как я решил пока не было ответов, но правильно

а как ты решил?

а+а+а+а пиши, я чего-то перепутал)

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