Написать программу,которая будет вычислять периметр и площадь квадрата.Срочно ПЖ

спасибо

var a: Real;beginwriteln('Введите сторону a: ');readln(a);writeln('S=',a*a);writeln('P=',4*a);end.