программы с If поТеме 5.1 (1)

program LUR;
var a,b: integer; x:real;
begin

  writeln('Чтобы решить линейное уравнение ax=b введите коэффиценты:');
  readln(a,b);
  if (a <> 0) then begin
    X := b / a;
    writeln('А вот и ответ: X = ', X)
  end
  else if (b = 0) then
    writeln('Решением является любое число.')
          else
            writeln('Решений нет.');
end.