Лежит ли точка M (a,b) на серединном перпендикуляре отрезка с концами K(1,2) и P(1,4)? - Pascal ABC

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

Лежит ли точка M(a,b) на серединном перпендикуляре отрезка с концами K(1,2) и P(1,4)? Данные для ввода: 1) a=6, b=3; 2) a=b=5

Решение задачи: «Лежит ли точка M (a,b) на серединном перпендикуляре отрезка с концами K(1,2) и P(1,4)?»

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

var a,b,y:integer;
begin
y:=3; //серединный перпендикуляр - горизонтальная прямая y=0*x+3
write('a=');
readln(a);
write('b=');
readln(b);
if 0*a+b=y then write('Точка лежит на серединном перпендикуляре')
else write('Точка не лежит на серединном перпендикуляре')
end.

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

Объявлены три переменные типа integer: a, b, y.
Значение переменной y инициализируется значением 3.
Выводится сообщение a= и считывается значение переменной a.
Выводится сообщение b= и считывается значение переменной b.
Формируется условие: 0*a + b = y.
Проверяется выполнение условия: если оно истинно, выводится сообщение Точка лежит на серединном перпендикуляре, иначе выводится сообщение Точка не лежит на серединном перпендикуляре.