Написать программу на языке Паскаль Дано: а, 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.