ввести с клавиатуры 7 чисел найти среднее арифметическое чисел меньших 30
срочно!!

var a,s,k:real;

   b:integer;

begin

s:=0;

k:=0;

for b:=1 to 7 do begin

writeln('Введите число:');

read(a);

if a < 30 then begin

s:=s+a;

k:=k+1;

end;

end;

s:=s/k;

writeln('Среднее арифметическое чисел:',s);

end.