Помогите пожалуйста с этими примерами
1) Определите значение целочисленных переменных x и y после выполнения фрагмента программы:
x := 336
У := 8;
x := x div y;
y := х mod у;
2) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
а :=1686;
b :=(a div 10) mod 5;
а := а - 200*b;
3)Определите значение целочисленных переменных x и y после выполнения фрагмента программы:
х := 11;
у := 5;
t := y;
у := х mod у;
x := t;
у := у + 2*t;
4) Определите значение целочисленных переменных x и y после выполнения фрагмента программы:
х := 19;
у := 3;
z := у*2;
у := х mod у;
х := х - z;
у := у + z;
5)Определите значение целочисленных переменных x, y и z после выполнения фрагмента программы:
х := 13;
у := 3;
z := x;
x := z div у;
у := х;

Кодvar    x, y, z, a, b, c, d, t: integer ;begin    x := 336;    y := 8;    x := x div y;    y := x mod y;    writeln('x = ', x, ', y = ', y);        a := 1686;    b := (a div 10) mod 5;    a := a - 200 * b;    writeln('a = ', a, ', b = ', b);        x := 11;    y := 5;    t := y;    y := x mod y;    x := t;    y := y + 2 * t;    writeln('x = ', x, ', y = ', y, ', t = ', t);        x := 19;    y := 3;    z := y * 2;    y := x mod y;    x := x - z;    y := y + z;    writeln('x = ', x, ', y = ', y, ', z = ', z);        x := 13;    y := 3;    z := x;    x := z div y;    y := x;     writeln('x = ', x, ', y = ', y, ', z = ', z);end. Вывод и ответы по очереди1) x = 42, y = 22) a = 1086, b = 33) x = 5, y = 11, t = 54) x = 13, y = 7, z = 65) x = 4, y = 4, z = 13