Напишите, , рабочую программу на турбо паскале. условие : дано число n. напечатать фразу : "мы успешно сдали экзамен ",согласовав окончания слова "экзамен" с числом n. предусмотреть, что 1(больше или меньше) n(больше или меньше) 20

Program naconecto;varn:integer;BEGINreadln(n);if (n>1) and (n<20) then  begin    writeln('MbI ycneIIIHo cgaJlu ek3aMeH!');  endelse  begin    writeln('He, HecgaJlu');  end;readln;END.