Написать программу на языке Паскаль Дано: а,b,с Найти:S S=SQRT(p(p-a)(p-b)(p-c)) где р=(а+b+c)/2

program zz1;
var a, b, c, p, S:real; // задаем переменные не целого типа
begin
write(' введите первый коэффициент '); // вводим с клавиатуры первое число
read(a);
write(' введите второй коэффициент '); // вводим с клавиатуры второе число
read(b);
write(' введите третий коэффициент '); // вводим с клавиатуры третье число
read(c);
p:=(a + b + c)/2; // рассчитываем полупериметр 
S:= sqrt(p * (p - a) * (p - b) * (p - c)); // находим площадь по формуле 
Write(' S = ', S ); // выводим ответ
END.