составить программу в паскале
без использования random

const N= {количество спортсменок напишите}var a: array[1..N] of real; k,i: integer; beginwriteln('Введите данные');for i:=1 to n do readln(a[i]);k:=0;for i:=1 to N doif (a[i]<57)and(a[i]>50) then k:=k+1;if k=0 then writeln('Не найдено') else writeln(k);readlnend.