Дан массив a(5,5). обнулить главную диагональ массива, если в ней найдется хот бы один отрицательный элемент

var

  a: array [1..5,1..5] of integer;

  i,j: integer;

  f: boolean;

begin

  randomize;

  f: =false;

  writeln ('исходный массив: ');  

  for i: =1 to 5 do begin

    for j: =1 to 5 do begin

    a[i,j]: =random(12)-3;

    if (i=j) and (a[i,j]< 0) then f: =true;

    write (a[i,j]: 3);

    end;

    writeln;

  end;

  if f=true then begin

    writeln ('полученный массив: ');    

    for i: =1 to 5 do begin

    for j: =1 to 5 do begin

      if (i=j) then a[i,j]: =0;

      write (a[i,j]: 3);

    end;

    writeln;

    end 

  end else writeln ('на главной диагонали нет отриц. эл.');  

  readln;

end.

import java.util.Scanner;

class Main {

  static int getNumb() {

      Scanner sxy = new Scanner(System.in);

      return sxy.nextInt();

  }

  public static void main(String [ ] args) {

      int x1 = getNumb();

      int y1 = getNumb();

      int x2 = getNumb();

      int y2 = getNumb();

      String can = "NO";

      if((x1 + 1 == x2) || (x1 - 1 == x2) && y1 == y2) {

          can = "YES";

      }

      else if((y1 + 1 == y2) || (y1 - 1 == y2) && x1 == x2) {

          can = "YES";

      }

      else if((x1 + 1 == x2 && y1 + 1 == y2) || (x1 + 1 == x2 && y1 - 1 == y2) || (x1 - 1 == x2 && y1 + 1 == y2) || (x1 - 1 == x2 && y1 - 1 == y2)) {

          can = "YES";

      }

      System.out.print(can);

  }

}