uses crt;
var x:integer;
begin
writeln('Введи сколько времени сегодня играл Пудж'); readln(x);
if x>8 then writeln('Пудж здоров')
else writeln('Болен');
end.
<em>Это ветвящийся алгоритм,если больше 8 значит здоров,обратное значение- болен.</em>
Я предполагаю что слово день.
Если ты правильно переписал, то 20.
y:= 10;
x: = 10 + y;
то есть
x: = 10 + 10 = 20;
y:= y - 1;
то есть
y: = 10 - 1 = 9;
но это никак не влияет на x, т.к. эта операция идет уже после выполнения вычисления переменной!
Если последовательность хранить не нужно, и начинается она с единицы, то ответ такой.