Помогите с простой задачкой на паскаль
ax=b
Только решите понятно, а не замудренными решениями из института, задачка с 10 класса

Uses crt;Var x,a, b:real;beginreadln(b);readln(a);x:=b/a;writeln(x);if b=0 then a:=0;if a=0 then b:=0end.

А, вот оно что, понятно) Только если ввести a = 0, будет беда-беда, сделай проверку)

Var a,x,b:real;Beginwrite('a,b: ');readln(a,b);x:=b/a;if (a=0)and(b<>0) then writeln('Решений нету')else if (a=0)and(b=0) then writeln('Бесконечно много решений')else writeln(x:0:2);End.