Написать блок-схему и программу линейного уравнения ax+b= 0

прощения за помарки. Программа рабочая.

//PascalABC.Net
//NaaMan
var
    a,b : real;
begin
    write('Введите А и В: ');
    readln(a,b);
    if (a=0) then
        writeln('Корень отсутствует')
    else
        writeln('Корень ', -b / a)
end.