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

Var a,b,x:real;
begin
readln(a,b);
if alt;gt;0 then writeln('x = ',-b/a)
else if blt;gt;0 then writeln('Корней нет')
 else writeln('Хоть какое число');
end.

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

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

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

Пример
3.5 16
-0.21875