Нахождение площади треугольника по формуле Герона - Pascal

Формулировка задачи:

Здравствуйте написал программу по нахождению площади треугольника по формуле Герона:

Program area_of_treugolnik;
Var a,b,c,p,S:real;
begin
Writeln('Введите стороны треугольника');
readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
if a+b>c and a+c>b and b+c>a and a>0 and b>0 and c>0 then writeln(S) else writeln('Вы ввели неправильные данные');
end.

С тестированием программы возникли проблемы, Паскаль выдает, что операция and неприменима к типу real. Конечно же можно поставить тип integer, а переменные просто округлять, но это крайне не разумно, помогите разобраться, чтобы моя программа наконец-то заработала бы)

Решение задачи: «Нахождение площади треугольника по формуле Герона»

textual
                            Листинг программы 
                        
                            if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then....