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

Question

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

Answer 1

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

Comments

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

---

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

---

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