
алг квадраты                                            | (108) 
нач цел n,k 
n:=0; k:=0 
нц пока k<>13    | 13 - код клавиши Enter 
n:=n+1 
поз(1,1);вывод "n = ",n,", n*n = ",n*n 
клав (k)
кц 
кон 


