Решите алгоритм (с решением).Пожалуйста,срочно!!!!!

program z;
var x:integer;
begin
x:=1;
x:=x+7;
if x>10 then x:=100
else x:=0;
write (' x равно ',x);
end.
На экране: x равно 0.

program z;
var x:integer;
begin
x:=10;
x:=x+9;
write(' х равно ',x);
end.
На экране: х равно 19