Исправьте ошибку в фрагменте программы. if writeln (a- четное число') then a mod 2=0

Var     x, x1, y, y1, d  : integer; begin     writeln('введите координаты первой точки: ');     write('x: ');     readln(x);     write('y:   ');     readln(y);     writeln('введите координаты второй точки: ');     write('x:   ');     readln(x1);     write('y:   ');     readln(y1);     d : = sqrt( sqr(x1-x) + sqr(y1-y)  );     write('расстояние между двумя точками:   ', d);     readln; end.

В)  действие объекта - это, что может делать сам объект или что могут делать с данным объектом. для характеристики объекта совершенно не важно, сам объект выполняет действие или он испытывает воздействие со стороны другого объекта. дейтсвие, применяемое к объекту, приравнивается к действию, выполняемому объектом. г)поведение — это то, как объект взаимодействует с окружением (другими объектами) состояние - состояние объекта, при котором его дальнейшая эксплуатация недопустима или нецелесообразна либо восстановление его работоспособного состояния невозможно или "