Question

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

Answer 1

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.