ввести 3 стороны треугольника, вывести его площадь. (на языке паскаль) ввести

program zz1;
var a,b,c,S,p,d:real; //задаем переменные не целого типа
begin
write(введите первую сторону треугольника );
read(a);
write(введите вторую сторону треугольника );
read(b);
write(введите третью сторону треугольника );
read(c);
d:=(a+b+c)/2; //обретаем полупериметр треугольника
if (a+bgt;c)or(a+cgt;b)or(c+bgt;a) //проверяем на существование треугольника, если существует, то вычисляем площадь
then begin s:=sqrt(d*(d-a)*(d-b)*(d-c));write(площадь треугольника = ,s:5:2);end
else write(треугольник не существует );
writeln;
write(введите число );
read(a);
write( квадратный корень числа = , sqrt(a));
end.