Сегодня пол дня не работал интернет.
От нечего делать чуть разобрал свой хлам в компе и на нем.

Написал влт такую програмку на поскале.
Оптимизируйте кто сможет.
Должны остаться действие и вывод результата.

program qw;
label 7;
var y,z,x,c,w: integer;
begin
write('z=');
readln(z);
x:=999;
c:=x+z;
writeln('x=',x);
writeln('c=',c);
writeln('z=',z);
y:=x;
x:=W;
writeln('y=',y);
writeln('w=',w);
end.