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

Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ СРОЧНО
Program
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln (____);
____:= ____ / 4;
S :=______(a);
Writeln (‘Ответ: ’,_________ );
End.