Дамп всех задач

Pascal/13.10.16/Program1.pas

@@ -0,0 +1,14 @@
+var
+  a, b, x: real;
+
+begin
+  readln(a, b, x); 
+  if a = 0 then 
+    write('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') 
+  else 
+  begin
+    if b = 0 then 
+      write('x = 0') 
+    else write('x =', b / a, ' <20><><EFBFBD> x =', -b / a); 
+  end
+end.