Сделайте пожалуйста четвертое задание) Если можно то в КуМир или на паскале

var a,b,c : real;beginwriteln('a=');readln(a);writeln('b=');readln(b);writeln('c=');readln(c);if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Треугольник существует') else writeln('Треугольника не существует');end.Пример:a= 3b= 4c= 5Треугольник существует