Ошибка: Встречено '(', а ожидалось ':' эта ошибка находится на 4-й строчке на первой скобке

Program n_1;
var
a, b, c, p, s:real;
writeln ('Введите значение a=');
readln (a);
writeln ('Введите значение b=');
readln (b);
writeln ('Введите значение c=');
readln (c);
p;=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
end.