Напишите программу на паскаль​

Если  часы только целые  var   a:integer;

Объяснение:

program Project1;

 var   a:real;

 begin

   write('Введите время, которое тратите на уроки: ');

     readln(a);

 if a<=1 then

    write('Вы ленитесь')

 else

    if a<=3 then writeln('Это оптимальное время')

    else writeln('Подумайте о здоровье');

    readln;

end.