uses crt;

var x:integer;

begin

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

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

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

end.

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