Дано действительное число s-площадь квадрата.составить программу ,определяющую его сторону и периметр .

Program kol_vo_elementov;
var a, b, p:real;
begin
writeln('Введите число');
readln(a);
b:=sqrt(a);
p:=4*b;
writeln('b=',b);
writeln('p=',p);
end.