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

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

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