Составить алгоритм и программу нахождения периметра квадрата по введённому значению его площади

program asd;var a,p:real;begin writeln ('Введите сторону квадрта');readln(a);p:=4*a;writeln ('p= ',p:10);readln(p);end.