program Bevardë0;
var x,y,z,m:longint;
begin
    Write('Iveskite m: ');
     Readln(m);
     writeln('Isveskite prekiu kainas:');
     Readln(x);
       y:=0;
    while x > 0 do
     begin
    if x < m then
         y:=y+1;
         z:=z+x;
     readln(x);
     end;
    writeln('Prekiu, kuriu kaina ne didesne kaip ',m,' litu yra ',y,', uz jas sumoketi reikes ',z, ' litu');
  Readln;
  Readln;
end.