Розвʼязання лінійного рівняння

Pascal Галуження

if / else if / else

Блок-схема за ДСТУ

Вихідний код

procedure solveLinear(a, b: real);
begin
  if a <> 0 then
    writeln(-b / a)
  else if b = 0 then
    writeln('безліч розв''язків')
  else
    writeln('немає розв''язків');
end;