.


- 5


if (a*x + b*y = 1) and (a > 0) and (b < 0)

then begin writeln(' x = ', x, ' ', b,'*t, y = ', y, '-', a, '*t,');

writeln(' t - '); goto 1 end;

if (a*x + b*y = 1) and (a < 0) and (b < 0)

then begin writeln(' x = ', x, ' ', b,'*t, y = ', y, ' ', a, '*t,');

writeln(' t - '); goto 1 end

end;

1: end;

{-----------------------------------------------------------------------------------------------------------}

begin

write(' x, a '); readln(a);

write(' y, b '); readln(b);

The_equation(a, b);

end.