Составить программу паскаля,дана сторона квадрата найти его периметр

Мда паскаль конечно жесть щас напишу 
Program Zadacha
Var a, b, c, d : integer;
Begin
Write 
read( a, b, c, d);
P:= (a+b+c+d) / z;
ch:= SQRT (p(p-a) (p-b) (p-c) (p-d)):
write
end.
Примерно так, так как я не очень знаю программирование...