solution/cw5/sqr.fun
changeset 869 81ee93b87258
parent 864 b5b1bc0a603b
equal deleted inserted replaced
868:8fb3b6d3be70 869:81ee93b87258
     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 }