ошибка 207 в Паскале

[WWWTED]

добрый вечер при решении задачи(1) вадаётся ошибка 207, помогите пожалуйста кто знает.
(1).Даны три числа а, b, с, удовлетворяющие аксиоме треугольника и число р. Выполнить следующие действия: если р=1 - найти периметр треугольника; если р=2 - найти площадь треугольника; если р=3 - найти угол а. Иначе напечатать слово "треугольник".
%
program p1;
uses crt;
var a,b,c,d,p,s,z,q,w :real;
begin
clrscr;
write('p=');
readln (p);
writeln ('vvedite storoni ');
readln (a,b,c);
z:=a+b+c;
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
q:=((c*c+b*b-a*a)/2*c*b);
w:=cos(q*3.14/180);
if p < 0 then writeln('treygolnik');
if p > 4 then writeln('treygolnik');
if p=1 then writeln('perimetr=',z:0:3);
if p=2 then writeln('ploshad=',s:6:3);
if p=3 then writeln('a=',w:0:3);
readln;
end.
%

[anGeee]

Ошибка 207 обычно генерируется при попытке взять квадратный корень из отрицатльного числа.
Скорее всего, ошибка здесь

s:=sqrt(d*(d-a)*(d-b)*(d-c));

Может быть, вы вводите неправильные данные...
Если не поможет, то прогоните программу в пошаговом режиме, и скажите, где выскакивает ошибка.