СРОЧНО!!!!!!!!!!!Выполните трассировку следующей программы:programm qq; uses crt; var a, b,

Безотлагательно!!!!!!!!!!!
Сделайте трассировку следующей программки:
programm qq; uses crt; var a, b, c: integer;
begin
a := 5; b := 3; c := a div 7; b := a+c; a := a*5; c := a mod b;
end.