Ответ: Program N;var a,p,s:integer;c:real;Beginread(a);{вводим сторону квадрата}c:=a*sqrt(2); p:=4*a; s:=sqr(a); WriteLn( ‘диагональ  ‘,c:5:2, ‘ периметр  ‘,p, ‘ площадь ‘,s );end.