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

Uses Crt;
Var s,s1,s2,a:longint;
begin 
clrscr;
 readln(a)
; s:=a*4; s1:=a*a; s2:=abs(2)*a; 
writeln(s,' ',s1,' ',s2);
End.