Три друга, Асхат, Эльдар и Айжан, решили сыграть одну интересную игру. Игра называется “Второй максимум”. Правило игры заключается в следующием. Каждый из игроков записывает число на бумаге не показывая другим. После этого они раскрывают какие числа написали. Побеждает тот кто написал второй максимум. При этом гарантируется что все числа различны.
Вводные данные: На первой строке даны 3 числа x, y, z (1 ≤ x, y, z ≤ 10^9). х число загадавший Асхат. у число загадавший Эльдар. z число загадавшая Айжан.
Выходные данные: Вывести Askhat если победил Асхат. Вывести Eldar если победил Эльдар. Вывести Aizhan если победила Айжан.
Пояснение Примера 1: Победил Эльдар по скольку он загадал число 2, которое больше числа 1 который загадал Асхат и меньше числа 3 которую загадала Айжан.
⁶
{$APPTYPE CONSOLE}
uses SysUtils;
Const n=30;
m=1;
var b,c:array[m..n] of integer;
i,a,s,y,s1:integer;
BEGIN
Write('Vvedite trexsnachnoe chislo A: ');
readln(a);
y:=a; s:=0;
while ( y<>0 ) do
begin
s:=s + (y mod 10);
y:=y div 10;
end;
Writeln('Summa zifr ravna: ',s);
Writeln;
Writeln('Massiv: ');
For i:=m to n do
begin
b[i]:=100+Random(200);
Write(b[i],' ');
c[i]:=b[i];
end;
Writeln; Writeln;
Write('Vse chisla, kotorye ravny po summe zifr: ') ;
For i:=m to n do
begin
s1:=0;
while ( b[i]<>0 ) do
begin
s1:=s1 + (b[i] mod 10);
b[i]:=b[i] div 10; end;
//Write(' ',S1,' ');
If s=s1 then
begin
Write(c[i],' ');
end; end;
Readln;
END.