Составить программу для линейного уравнения kx+a=b(вместо букв нужно подставить любые цифры).

Vara,b:Real;BeginRepeatWrite('a= ');Readln(a);if a=0 then writeln('Error: a=0. Enter another value');Until a<>0;Write('b= ');Readln(b);Writeln('x = ',b/a:0:5);Readln;End.