Program First;
Var i:integer;
Begin
i:=1;  i:=i+1;  i:=i+2;  i:=i-1;
Writeln(i); {This will output 3}
End.