Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать программу в Паскаль, пожалуйста помогите:)

Ответ оставил Гость

Program month;
uses crt;

var m: integer;

begin clrscr;
      Write(M = );
      readln(m);
case m of 1: writeln(January);
          2: writeln(February);
          3: writeln(March);
          4: writeln(April);
          5: writeln(May);
          6: writeln(June);
          7: writeln(July);
          8: writeln(August);
          9: writeln(September);
          10: writeln(October);
          11: writeln(November);
          12: writeln(December);
end;
end.