Составить программу нахождения площади, периметра и диагонали в квадрате со стороной а.

var
  a: real;

begin
  write('a = '); readln(a);
  writeln('d = ', sqrt(2 * sqr(a)));
  writeln('P = ', 4 * a);
  writeln('S = ', sqr(a));
end.