Дано 3 числа. росположены ли рядом max и min число. блок схемой .

ответ:

program beside;

var a, b, c, maxi, mini: integer;

begin

  read(a, b, c);

  maxi : = max(a, max(b, c));

  mini : = min(a, min(b, c));

  if (b = maxi) or (b = mini) then

    writeln('yes')

  else

    writeln('no')

end.

объяснение:

Var a, d, count, i: integer;   function countday(a: integer): integer; begin   if (a > = 1) then countday : = 31;   if (a > = 2) then countday : = 28;   if (a > = 3) then countday : = 31;   if (a > = 4) then countday : = 30;   if (a > = 5) then countday : = 31;   if (a > = 6) then countday : = 30;   if (a > = 7) then countday : = 31;   if (a > = 8) then countday : = 31;   if (a > = 9) then countday : = 30;   if (a > = 10) then countday : = 31;   if (a > = 11) then countday : = 30;   if (a > = 12) then countday : = 31; end;   begin   count : = 0;   write('введите месяц: ');   readln(a);   write('введите день: ');   readln(d);   if (a < = 0)or(a > 12)or(d < = 0)or(d > countday(a)) then     writeln('ошшибка в данных! ')   else   begin     for i: =a to 12 do       count : = count + countday(i);       count : = count - d;       writeln('до нового года осталось ', count, ' дней.');   end; end.