Program X;
Var A,B,C: integer;
Begin readln( A,B,C);
if A B then begin D := A;
E:= B;
end
else begin D:= B;
E:= A;
end;
if C>D then D:= C;
if CKE then E:= C;
writeln(D,',E);
end.

а 3
б-1
с7​

dondokovsoel59    3   17.03.2020 17:21    1