Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. вводятся четыре числа: координаты ферзя и координаты другой фигуры. входные данные выходные данные 1 yes 1 2 1 1 no 1 3 2 heeelp me, please! буду !

Var x1,x2,y1,y2: integer; beginwrite('введите координаты х и у ферзя: '); readln(x1,y1); write('введите координаты х и у фигуры: '); readln(x2,y2); if (abs(x1-x2)=abs(y1-y2)) or (x1=x2) or (y1=y2) then   writeln('yes') else writeln('no') end.

Var   i, n: integer;   s: byte;   arr: system.collections.generic.list< integer> : = new system.collections.generic.list< integer> ();     begin   write('enter a number of values: ');   readln(n);   for i : = 0 to (n - 1) do   begin     arr.add(random(-50, 50));     write(string.format('[{0}] => {1}; ', i, arr[i]));     if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then       s += 1;   end;   writeln(system.environment.newline, '> ', s); end.

Program program1; var name: string; var cost: real; begin         write('введите название товара: ');         readln(name);         write('введите цену товара: ');         readln(cost);         writeln('ваши расходы на покупки равны', cost, ' руб.'); end. ============================= program program2; var a, b, c, sum: integer; var average: real; begin         writeln('введите три числа: ');         readln(a, b, c);         average : = (a + b + c) / 3;         writeln('их среднее равно ', average);         sum : = a + b + c;         writeln('их сумма равна ', sum); end.