Помогите составить блок схему и программу для вычисления суммы квадратов чисел до тех пор пока квадрат очередного числа не превысит 50

var a,x,s: integer;begin   a:=0;  while a<50 do begin readln(x);    a:=x*x;    s:=s+a;  end;  writeln(s);  readln;end;