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

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