ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Задача: Дана площадь квадрата. Определить его периметр.

Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.

Program test3;

Var a : real; // сторона квадрата

S : real; // площадь квадрата

P : real; // периметр квадрата

Begin

Readln (
);

:=
(S);

:=
;

Writeln (‘Ответ: ’,
);

End.