помогите написать программу на паскале если можно с пояснениями, что делали! Вот задание : Даны действительные числа а, b,

var
     a, b, c, range, p, s:Real; {объявление переменных}
begin
     readln(a,b,c); {считывание значений}
     if (a+b<c) and (b+c<a) and (c+a<b) then begin {в треугольнике сторона не может быть больше суммы двух других}
             p:=(a+b+c)/2; {полупериметр}
             s:=sqrt(p*(p-a)*(p-b)*(p-c)); {площадь по формуле Герона}
             writeln('Периметр равен: ',a+b+c);
             writeln('Площадь равна: ',s);
         end
     else writeln('Треугольника с такими сторонами не существует');
     readln;
end.