Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
Д-синий,е-красный,л-синий,о-красный
Защита вашей личной информации от неправомерного доступа к ней.
Защита производственной тайны (технологии производства и т.д.)
Как-то так) Надеюсь помог.
Это и к файлу и к папке относится:
1.Копировать
2.Вставить
3.Вырезать
4.Открыть
5.Удалить
6.Переименовать