Ближайшая к дому булочная работает с 7.00 до 19.00 и закрывается на перерыв с 13.00 до 15.00. хлебный магазин, расположенный дальше, работает с 8.00 до 20.00 и имеет перерыв с 14.00 до 16.00. с 8.00 до 24.00 хлеб можно купить в гастрономе, расположенном дальше, чем хлебный магазин и работающем без обеда. по времени на часах у пользователя определить, что лучше: а) сходить в булочную, так как она открыта; б) дойти до хлебного магазина; в) съездить в гастроном; г) сидеть дома, так как везде закрыто. время вводится следующим образом: часы целая часть числа, минуты дробная часть числа. например, 14,25 14 часов 25 минут.

var

  a: real;

  s: string;

begin

  write('введите время: ');

  readln(a);

  if ((7< =a) and (a< =13)) or ((15< =a) and (a< =19)) then s : = 'сходить в булочную, так как она открыта'

  else if ((8< =a) and (a< =14)) or ((16< =a) and (a< =20)) then s : = 'дойти до хлебного магазина'

  else if (8< =a) and (a< =24) then s: ='съездить в гастроном'

  else s: ='сидеть дома, так как везде закрыто';

  write(s);

end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок