Question

помогите составить программу в паскале по схеме :

Answer 1

var a,b,x:real;
begin
readln(a,b);
if a<>0 then writeln('x = ',-b/a)
else if b<>0 then writeln('Корней нет')
 else writeln('Любое число');
end.

Пример:
0 5
Корней нет

Answer 2

Заменяем каждый блок оператором языка Паскаль.
К сожалению, блок содержащий x:=-b/a, написан некорректно.
Указано условное графическое обозначение (УГО) "Данные", которое обычно используется для операций ввода-вывода, а внутри дан оператор присваивания, который обычно пишется внутри прямоугольника УГО "Процесс". В связи с этим было принято решение сначала выполнить присваивание для х, а затем вывод значения х. В противном случае описывать х нет смысла.

var
  a,b,x:real;
 
begin
  Read(a,b);
  if a>0 then begin x:=-a/b; Writeln(x) end
  else
    if b<>0 then
      Writeln('Корней нет')
    else
      Writeln('Любое число')
end.

Пример
3.5 16
-0.21875