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

Ответ:

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

Изъясненье:

program Project1;

 var   a:real;

 begin

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

     readln(a);

 if alt;=1 then

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

 else

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

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

    readln;

end.