С10 яблонь сорвали яблоки. определить суммарный вес яблок с10 яблонь. паскаль. .

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.

var hour: integer;

      minute: string;

begin

  writeln('введите время суток');

  read(hour,minute);

  if (hour> =6) and (hour< 12) then writeln('доброе утро');

  if (hour> =12) and (hour< 18) then writeln('доброго дня');

  if (hour> =18) and (hour< 00) then writeln ('доброго вечера');

  if (hour> =00) and (hour< 6) then writeln ('спокойной ночи');

end.

тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке