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

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.