Определить количество решений у системы двух линейных уравнений с двумя переменными - Pascal ABC (14624)

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

Определить количество решений у системы двух линейных уравнений с двумя переменными.

Решение задачи: «Определить количество решений у системы двух линейных уравнений с двумя переменными»

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

var a1,b1,c1,a2,b2,c2:integer;
begin
writeln('Введите коэффициенты первого уравнения');
readln(a1,b1,c1);
writeln('Введите коэффициенты второго уравнения');
readln(a2,b2,c2);
if a1*b2<>b1*a2 then write('Одно решение')
else if (a1*b2=b1*a2)and(a1*c2=c1*a2)then write('Бесконечное число решений')
else write('0 решений');
end.

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

Создается переменная типа integer для каждой из трех переменных a1, b1, c1, а также для каждой из трех переменных a2, b2, c2.
Выводится сообщение 'Введите коэффициенты первого уравнения', после чего считываются значения коэффициентов первого уравнения с помощью функции readln.
Выводится сообщение 'Введите коэффициенты второго уравнения', после чего считываются значения коэффициентов второго уравнения с помощью функции readln.
Вычисляется произведение коэффициентов первого уравнения a1*b2 и выводится результат.
Вычисляется произведение коэффициентов второго уравнения a2*b1 и выводится результат.
Вычисляется произведение коэффициентов первого уравнения a1*c2 и выводится результат.
Вычисляется произведение коэффициентов второго уравнения c1*a2 и выводится результат.
Проверяется условие a1b2<>b1a2. Если оно истинно, то выводится сообщение 'Одно решение'.
Проверяется условие (a1b2=b1a2) и (a1c2=c1a2). Если оба условия истинны, то выводится сообщение 'Бесконечное число решений'.
Если ни одно из вышеуказанных условий не выполняется, то выводится сообщение '0 решений'.