Определить принадлежит ли точка с заданными координатами прямой y=kx+b

Помогите, пожалуйста. Нужно создать команду Turbo Pascal, таблицу с данными и блок схему

Для определения принадлежности точки (x, y) прямой y=kx+b нужно подставить координаты точки в уравнение прямой и сравнить результат с y. Если они равны, то точка принадлежит прямой, иначе не принадлежит.

Таблица с данными:

| k | b | x | y | Результат |
|---|---|---|---|-----------|
| 2 | 3 | 1 | 5 | Не принадлежит |
| 2 | 3 | -1 | 1 | Не принадлежит |
| 2 | 3 | 2 | 7 | Не принадлежит |
| 2 | 3 | 0 | 3 | Принадлежит |
| 2 | 3 | 3 | 9 | Принадлежит |

Блок-схема:


Код на Turbo Pascal:

```
program PointOnLine;

var
k, b, x, y: real;

begin
writeln('Введите k, b, x, y через пробел:');
readln(k, b, x, y);
if y = k*x + b then
writeln('Точка принадлежит прямой')
else
writeln('Точка не принадлежит прямой');
end.
```