Pascal.найти первое четное число в массиве с рандомом(не важно какой интервал чисел)

import java.util.Scanner;

public class Authenticator {

public static void main(String[] args) {

 String login;

 String password;

 Scanner scan = new Scanner(System.in);

 

 System.out.println("login:");

 login = scan.next();

 System.out.println("password:");

 password = scan.next();

 

 if(login.equals("user") && password.equals("qwerty")){

  System.out.println("Authentication completed");

 }else{

  System.out.println("Invalid login or password");

 }

 

 scan.close();

 

}

}

Объяснение:

Краткий алгоритм этой программы:Импортируем класс Scanner(для ввода текста);В методе main создаем две переменные типа String и одну типа Scanner;Вводим значения при а;Если логин и пароль верны,то выводим Authentication completed. Иначе выводим Invalid login or password;Закрываем Scanner;

Var
  x,y:integer;
  vcp,dx,dy:real;
begin
  Write('Возраст Тани='); Read(x);
  Write('Возраст Мити='); Read(y);
  vcp:=(x+y)/2;
  dx:=x-vcp; dy:=y-vcp;
  Writeln('Средний возраст равен ',vcp);
  if dx>0 then begin
    Writeln('Таня старше среднего возраста на ',dx,' лет,');
    Writeln('а Митя младше среднего возраста на ',-dy,' лет.')
  end
  else
    if dx=0 then Writeln('Таня и Митя ровесники')
    else begin
      Writeln('Таня младше среднего возраста на ',-dx,' лет,');
      Writeln('а Митя старше среднего возраста на ',dy,' лет.')
    end
end.

Тестовое решение:
Возраст Тани=15
Возраст Мити=12
Средний возраст равен 13.5
Таня старше среднего возраста на 1.5 лет,
а Митя младше среднего возраста на 1.5 лет.