Make a program for finding the area, perimeter and diagonal in a square with side A.

program geometry;
var a, p, s: integer;
d: real;
begin
read (a);
s: = a * a;
p: = a * 4;
d: = sqrt (a * a + a * a);
writeln (‘Square area =’, s);
writeln (‘Perimeter of the square =’, p);
writeln (‘Diagonal of the square =’, d);
end.



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.