program simpleAssign; declare n1,n2:integer; begin n1:=18; write(n1); writeln; end simpleAssign.