Решить в целых числах уравнение ( ax - b ) / ( cx - d ) = 0. входные данные вводятся 4 числа: a, b, c и d выходные данные вывести значения корней и их количество, вывести фразу "нет корней" при их отсутствии и вывести фразу "solution" если корней бесконечно много. программа на pascal
program n5;
uses crt;
var a,b,c,d,x:integer;
begin
read (a,b,c,d);
if (b=0) and (a<>0)then write('solution');
if (b<>0) and (a=0)then write('нет корней');
if (b<>0) and (a<>0) and (b mod a=0) then write (-b div a);
readln;
end.