Составить программу, которая запрашивает ввод температуры тела человека и опредиляет, здоров он или болен (здоров при 36 меньше t больше 37)

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

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

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

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

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