Ответы и объяснения

2013-12-26T16:37:49+04:00
Uses crt;
var a, b, x:real;
begin
write('b='); read(b);
write('a='); read(a);
x:=b/a;
if x>0 then write('x>0',' ','и ','x=',x);
if x<0 then write('Решений нет.');
if x=0 then write('x=0');
end.
p.s.Как-то так,наверно.