Составить программу ** нахождения периметра квадрата

Question

Составить программу на нахождения периметра квадрата

Answer 1

Program zadacha;
uses crt;
var
    a,b:real;
Begin
         write('Введите сторону квадрата');
         Read(a);
         b:=4*a;
         Write('Периметр квадрата равен', b);
End.

Answer 2

(a+b)•2=периметр квадрата Р²