Вариант 2.
a := 2;b := 6;b := a - b;c := b - a;
a := 1;b := 5;b := a * b;c := b + a;
a := 2;b := 6;b := a * b;c := 5*a - b;
a := 4;b := -a - 7;
var a: integer; x: real;
program qq;begin a:=2+2; write(a);end.
a := 20;b := 3;c := a div b + a;
a := 24;b := 5;b := a div b;c := a div b;