Пожалуйста посчитайте пожалуйста!!

VAR P, a, S of integer
a:=P:4;
S:=a*a
) не отказался бы от благодарности!