data a;
 put num char $ numsq t tsq four;
input num char $  5-12;
 numsq=num*num; t+1; four=4; tsq=t*t;
 put num char $ numsq t tsq four;
  put '  ' ;
cards;
13  trieut
15  asffdaa
12
16  wrre
18
 ;
proc print;
  run;