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

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.