диагностика по информатике
Найдите значение x: 5121 ≡ x mod 231.

using System;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           int a, b, c;

           Console.Write("Введите a: ");

           a = Convert.ToInt32(Console.ReadLine());

           Console.Write("Введите b: ");

           b = Convert.ToInt32(Console.ReadLine());

           Console.Write("Введите c: ");

           c = Convert.ToInt32(Console.ReadLine());

           if ((a+b<c)||(a+c<b)||(b+c<a)) Console.WriteLine("Такого треугольника не существует!");

           else

           {

               if ((c*c==a*a+b*b)||(b*b==a*a+c*c)||(a*a==b*b+c*c))

                   Console.WriteLine("Треугольник существует. Он прямоугольный.");

               else

                   Console.WriteLine("Треугольник существует. Он непрямоугольный.");

           }

       }

   }

}

var a,b,c,d,res: integer;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

write('Введите d: ');

readln(d);

res := a;

// Проверяем число b

if (b mod 10 > res mod 10) then res:=b

else if (b mod 10 = res mod 10) then

 begin

 if (res<b) then res:=b;

 end;

// Проверяем число c

if (c mod 10 > res mod 10) then res:=c

else if (c mod 10 = res mod 10) then

 begin

 if (res<c) then res:=c;

 end;

// Проверяем число d

if (d mod 10 > res mod 10) then res:=d

else if (d mod 10 = res mod 10) then

 begin

 if (res<d) then res:=d;

 end;

writeln('Число с наибольшей последней цифрой: ',res);

end.