Написать программу для решения уравнения ax=b на языке паскаль abc

Program Ur1; Uses Crt; var a,b,x: real; begin clrscr; write ('Введите а>0: '); readln (a); if (a=0) then a: =1; {чтобы избежать ошибки во время выполнения} write ('Введите b: '); readln (b); x: =b/a; writeln ('x=',x); readkey; end.