с клавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10

var  sum,n:integer;beginn:=1;while(n<>0) do beginreadln(n);if(n>10) thensum:=sum+n;end;writeln(sum);readln;end.