Menggunakan STR

uses crt;
var
one,two: integer ;
satu,dua : string;
begin
clrscr;
one:=81;two:=2;
writeln (one*two);
str(one:2,satu);
str(two:2,dua);
writeln(satu+dua);readln;
end.


outputnya
162
81  2