Решите,пожалуйста,задачи.1)Дано линейное уравнение вида ах=b.Если решения этого уравнения не

1)
var
a,b:real;
begin
write('A=');readln(a);
write('b=');readln(b);
if alt;gt;0 then
write('X=',-b/a)
else
write('Нет решений');
end.
2)
var
a,b,c:real;
begin
write('Введите сторону A='); readln(a);
write('Введите сторону B='); readln(b);
write('Введите сторону C='); readln(c);
if ((a+b)gt;c) and ((a+c)gt;b) and ((b+c)gt;a) then
write('Треугольник существует')
else
write('Треугольник не существует');
end.