Question

ВЫЧИСЛИТЬ ПЕРИМЕТР КВАДРАТА, ЕСЛИ ИЗВЕСТНА ЕГО ПЛОЩАДЬ! Напишите программу в FreePascal!! Cрочно

Answer 1

program kvadrat;
uses crt;
var a,s,p : real;
begin
        clrscr;
        writeln('Введите S:');
        readln(S);
        a:=sqrt(S);
        P:=a+a+a+a;
        writeln('P= ',P:6:2);
        readln;
end.