program evg97; uses crt; var a,b,c: real; begin writeln('++'); writeln('| порівнялка |'); writeln('++'); write('введіть число a: '); readln(a); write('введите число b: '); readln(b); write('введіть число c: '); readln(c); writeln(); writeln('++'); writeln('| результат: |'); writeln('++'); if (a=b) or (a=c) or (b=c) then writeln('| деякі (або всі) числа рівні |') else if (a< b) and (b< c) then writeln('| число посередині: b=',b: 8: 3,' |') else if (a< c) and (c< b) then writeln('| число посередині: c=',c: 8: 3,' |') else writeln('| число посередині: a=',a: 8: 3,' |'); writeln('++'); end.