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

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