Turbo pascal. определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : = 42; b : = 14; a : = a div b; b : = a*b; a : = b div a;

a := 42;
b := 14;
a := a div b; -> a:=целая часть 42/14, т.е. 3
b := a*b; -> b:=3*14, т.е. 42
a := b div a; -> a:=целая часть 42/3, т.е. 14
ответ: a=14, b=42