Трехзначное десятичное число начинается с цифры 2.если из этого числа вычесть 3, перевернуть его, то полученное число окажется в два раза меньше первоначального.найдите оба числа

public class Task3 {

   public static void main(String[] args) {

       int x;

       for (int i = 200; i <= 299; i++) {

           x = i;

           x -= 3;

           x = reverseInt(x);

           if (i / 2 == x) {

               System.out.println("i = " + i);

               return;

           }

       }

   }

   public static int reverseInt(int input) {

       long reversedNum = 0;

       long input_long = input;

       while (input_long != 0) {

           reversedNum = reversedNum * 10 + input_long % 10;

           input_long = input_long / 10;

       }

       if (reversedNum > Integer.MAX_VALUE || reversedNum < Integer.MIN_VALUE) {

           throw new IllegalArgumentException();

       }

       return (int) reversedNum;

   }

}

По моему так:
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:real;
  Read(a,b,c); // не вводить одинаковых!
  if a>b then
    if a>c then // a > [b,c]
      if b>c then Writeln('Среднее - второе число')
      else Writeln('Среднее - третье число')
    else Writeln('Среднее - первое число')
  else
    if b>c then // b > [a,c]
      if a>c then Writeln('Среднее - первое число')
      else Writeln('Среднее - третье число')
    else Writeln('Среднее -  второе число')
end.