Лабы / Pascal.1.курс / part 1 / LABA2 / VAR16 / LABA2

program laba2;
uses crt,global,mod1,io;
var c,d:tar;
begin
clrscr;
textcolor(white);
writeln('”®а¬Ёа®ў ­ЁҐ ¬ ббЁў  C');
readln;
vvod(c);
textcolor(green);
writeln('Њ Єб ',max(c));
writeln('ЊЁ­ ',min(c));
writeln;
readln;
textcolor(white);
writeln('”®а¬Ёа®ў ­ЁҐ ¬ ббЁў  D');
readln;
vvod(d);
textcolor(green);
writeln('Њ Єб ',max(d));
writeln('ЊЁ­ ',min(d));
readln;
end.