Дано 5 положительных чисел требуется перевернуть каждое из чисел и распечатать их в обратном порядке при этом если перевёрнутое число начинается с нуля то ведущие нули не печатаются например вместо 230 следует вести 32а вместо 100 15 чисел вводится в одной строке через пробел требуется также вывести пять чисел через пробел вводятся 3 цифры требуется составить из них наиболее возможное четное число входные данные: вводятся три цифры в разделенные пробелом гарантируется что хотя бы одна из них а отлична от нуля и хотя бы одна четная выходные данные: вывести одно трёхзначное число без пробелов число не может начинаться с нуля
var a:Array[1..1000010] of longint;
i,n,s,ma,mi,sl:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
mi:=(1 shl 30);
ma:=-(1 shl 30);
for i:=1 to n do begin read(a[i]);
ma:=max(ma,a[i]);
mi:=min(mi,a[i]);
end;
if ma=mi then write(0,'',n,'',0)
else
begin for i:=1 to n do
begin
if a[i]=ma then s:=s+1;
if a[i]=mi then sl:=sl+1;
end;
writeln(s,' ',sl,' ',n-s-sl);
close(input);
close(output);
end;
end.