Составить блок схему и программу для вычисления суммы квадратов чисел до тех пор пока квадрат очередного числа не превысит 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;