Составьте, пожалуйста, программу в pascal

Question

Составьте, пожалуйста, программу в pascal

---

Comments

Срочнооо

Answer 1

Program z1;
var a,b,x:integer;
begin
readln(a,b);
x:=(-b)/a;
writeln('x=',x);
end.

Comments

А тут нужно условие или нет?

---

можно добавить

---

...

---

ща

---

if a<> then (все что после readln и до end) else writeln('не удовлетворяет условию'); end.

---

Спасибо большое