PROGRAM Wertzuweisungs_test; VAR a,b :integer; BEGIN readln(a); b := a*a; a := a + b; b = b + 2*a; writeln(a,b); readln: END.