составить программу на языке Паскаль по формуле:

var  S, p, a,b,c : Real;begin  writeln('Введите a: ');  readln(a);  writeln('Введите b: ');        readln(b);        writeln('Введите c: ');  readln(c);        // C не может быть = 0        if c = 0 then       writeln('C не может быть равен 0')     else    begin           //Вычисляем P:        p := (a+b+c)/c;            //Вычисляем корень:        S := sqrt( p*(p-a)*(p-b)*(p-c) );   // Результат:   writeln('P = ', p);        writeln('S = ', S);      end;    end.