Сделать ложные высказывания истинными: вид алгоритма зависит от его представления

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.

var myaf: array[0..30] of double;