Если часы только целые 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.
