-2 3
12 ()
-2 + 12/5 - 3 = (-5 * 5 + 12)/5 = -13/5 = -2.6
\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
E:\Мелодия.mp3 т.к. этот файл находится на 1 уровне.