Написать прогу на паскале.. здоровый щенок играет не менее 8 часов в день. напишите программу которая определяет здоров ли щенок по кличке пуджик

uses crt;

var x:integer;

begin

writeln('Введи сколько времени сегодня играл Пудж'); readln(x);

if x>8 then writeln('Пудж здоров')

else writeln('Болен');

end.

Это ветвящийся алгоритм,если больше 8 значит здоров,обратное значение- болен.