Ученикам первого класса ,ежедневно выдаётся бесплатно стакан молока (200мл),если их вес составляет мнение 30 кг. определить , сколько литров молока требуется жедневно для одного класса из 25 человек . вес каждого ученика представлен как элемент массива

Var a:array[1..25] of word;
     i,s:longint;
begin
  writeln('vvedit ves uchenika');
  for i:=1 to 25 do
    read(a[i]);
  for i:=1 to 25 do
    if a[i]<30 then s:=s+0.2; //так как ответ в литрах
  writeln(s);
  readln;
end.