Помогите написать программу на pascalABC

Вычислить сумму квадратов вводимых чисел. числа вводятся, пока не будет нажат ноль.

Program n1;var a: integer;sum: real;beginsum:=0;readln(a);while a<>0 dobeginsum:=sum+a*a;readln(a);end;write(sum);end.

llllllllllllllllllllllllll