solution/cw5/sqr.fun
changeset 869 16247acc4b0e
parent 864 a24633510c0a
equal deleted inserted replaced
868:b0acb8741b16 869:16247acc4b0e
     6   if n <= Max
     6   if n <= Max
     7   then { print_int(sqr(n)) ; new_line(); all(n + 1) }
     7   then { print_int(sqr(n)) ; new_line(); all(n + 1) }
     8   else skip()
     8   else skip()
     9 };
     9 };
    10 
    10 
    11 all(0)
    11 {
    12  
    12   print_string("Squares");
       
    13   new_line();
       
    14   all(0)
       
    15 }