Var
d, min, max, i: integer;
begin
readln(d);
min := d;
max := d;
for i := 1 to 6 do
begin
readln(d);
if min > d then min := d;
if max < d then max := d;
end;
writeln('max = ', max);
writeln('min = ', min);
end.
<span>постепенно: превращая идеографические логограммы в логограммы фонетические, в знаки, хотя и обозначающие целое слово, но непосредственно связанные не с его значение, а его звучанием</span>
Ууу, мы такое еще не пошли(