Помогите написать прогу на паскале. Пожалуйста. Здоровый щенок играет не менее 8…

uses crt; var x: integer; beginwriteln ('Введи сколько времени сегодня играл Пудж'); readln (x); if x>8 then writeln ('Пудж здоров') else writeln ('Болен'); end. Это ветвящийся алгоритм, если больше 8 значит здоров, обратное значение- болен.