Помогите с информатикой, пожалуйста. Напишите процедуру, которая выводит на экран решение линейного алгебраического уравнения. Параметры и являются параметрами процедуры.

procedure SolveLinear;var k, x, b, y: real;begin write('k='); readln(k); write('x='); readln(x); write('b='); readln(b); y := k * x + b; writeln('y=kx+b=', y);end;