Даны три числа. определить, являются ли они сторонами треугольника. если да, найти его периметр

У меня есть решение на visual basiс. Вас устроит?

Program triangle;
var a,b,c,p: real;
begin
writeln('Введите стороны треугольника');
read(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
p:=a+b+c;
write('Да, существует. Периметр = ',p);
end
else write('Нет, не существует.');
end.