С клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число. найди сумму квадратов однозначных чисел (написать программу на языке паслкаль)

Label m1; var a:array[1 ... 100]of integer; i, b, n:integer; c:real; beginfor i:=1 to 100 dobeginread (a[i]) ; if a[i]>9 then goto m1; n:=i; end; m1:for i:=1to n dobeginb:=sqr (a[i]) ; writeln ('Квадрат',' ', i,' ','числа=',' ', b) ; end; end.