Помогите пожалуйста
Решить уравнение ax+b=0.    a и b вводятся с клавиатуры.
для паскаля

если сможете ещё и блок-схему.

Program uravnenie;Var a,b,x: real;BeginWriteln (' введите a');Readln (a);Writeln (' введите b');Readln(b);x:=(0-b)/a;Writeln(' x равно=',x);Readln (x);End.___________________________________