Нормативы по физкультуре (программа для Pascal )

var

  c:real;

  x:integer;

begin

  writeln('Выберите норматив(юноши 16-17 лет)');

  writeln('1-Бег на 30 метров, 2-Бег на 100 метров, 3-Подтигивание из виса на высокой преркладине');

  readln(x);

  case x of

    1: begin

       writeln('Введите результат');

       readln(c);

        if c>4.9 then writeln('2');

        if (c>4.7) and (c<=4.9) then writeln('3');

        if (c>4.4) and (c<=4.7) then writeln('4');

        if c<=4.4 then writeln('5');

        end;

    2: begin

       writeln('Введите результат');

       readln(c);

        if c>14.6 then writeln('2');

        if (c>14.3) and (c<=14.6) then writeln('3');

        if (c>13.4) and (c<=14.3) then writeln('4');

        if c<=13.4 then writeln('5');

        end;

    3: begin

       writeln('Введите результат');

       readln(c);

       if c<9 then writeln('2');

       if (c>=9) and (c<11) then writeln('3');

       if (c>=11) and (c<14) then writeln('4');

       if (c>=14) then writeln('5');

       end;

  end;

end.