Program Forth;
Var a:integer;
Begin
A:=2;
Writeln('A equal to 2 is ' , a=2);
End.