Дано действительное число 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.