///////////////////////////////////////////////////////////
Если, когда, круг, ждать, цикл, повторять.
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>9) and (a<100) and (a mod 5=0)
then k:=k+1;
readln(a);
end;
write(k);
end.