составить программу вычисления периметра и площадь квадрата

спасибо)

vara:real;begin    readln(a);       writeln('площадь: ',a*a);       writeln('периметр: ', 4*a);end.