Решить уравнение 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.