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

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