Написать программу на Паскале решения неравенства ax >= b для любых заданных действительных значений a и b - PascalABC.NET

Формулировка задачи:

Написать программу на Паскале решения неравенства ax >= b для любых заданных действительных значений a и b.

Решение задачи: «Написать программу на Паскале решения неравенства ax >= b для любых заданных действительных значений a и b»

Листинг программы

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

Объяснение кода листинга программы

В начале программы объявляются две переменные типа real - a и b.
Затем происходит чтение значений этих переменных с помощью функции readln().
Далее происходит проверка на равенство нулю обеих переменных. Если обе равны нулю, то выводится сообщение x-любое число.
Если переменная b равна нулю, то выводится сообщение x=0.
Если переменная a равна нулю, то выводится сообщение нет решений.
В противном случае выводится сообщение x>=b/a:0:2, где b/a - результат деления переменной b на переменную a.
Программа завершается.