Определить, сколько литров молока потребуется ежедневно для одного класса - Turbo Pascal (102062)

Формулировка задачи:

Помогите сделать...пожалуйста

Ученикам 1-го класса назначается дополнительно стакан молока (200 мл), если их вес составляет меньше 30 кг. Определить, сколько литров молока потребуется ежедневно для одного класса, состоящего из n учеников. После взвешивания вес каждого ученика вводится в ЭВМ и хранится в виде массива . вся задача выглядит так

хотелось бы конечно чтоб была еще блок схема...завтра зачет а в голове каша

там еще пояснение было Если вес очередного ученика меньше 30 кг, то к количеству моло-ка, нужно прибавить 0,2.

Решение задачи: «Определить, сколько литров молока потребуется ежедневно для одного класса»

textual
                            Листинг программы 
                        

                            const nmax=30;
var a:array[1..nmax] of byte;
    n,i:byte;
    s:real;
begin
clrscr;
randomize;
repeat
write('ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГіГ·ГҐГ*ГЁГЄГ®Гў Г®ГІ 2 Г¤Г® ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Г‚ГҐГ± ГіГ·ГҐГ*ГЁГЄГ®Гў');
for i:=1 to n do
 begin
  a[i]:=20+random(20);
  write(a[i]:4)
 end;
writeln;
s:=0;
for i:=1 to n do
if a[i]<30 then s:=s+0.2;
write('ГЏГ®ГІГ°ГҐГЎГіГҐГІГ±Гї Г¬Г®Г«Г®ГЄГ* ',s:0:1,' Г«');
readln
end.
                        