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

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