По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n. Программа получает на вход целое число n и должна вывести два числа: число месяца (от 1 до 31) и номер месяца (от 1 до 12), на которое приходится данный день.

program gt;label 1;var n,i,s:integer;beginreadln(n);s:=0;for i:=1 to 12 dobeginif(i=1)or(I=3)or(i=5)or(i=7)or(i=8)or(i=10)or(i=12)then begins:=s+31;if(n<=s)then beginwriteln(n-s+31,' ',i);goto 1;end;end;if(i=2)then begins:=s+28;if(n<=s)then beginwriteln(n-s+28,' ',i);goto 1;end;end;if(i=4)or(i=6)or(i=9)or(i=11)then begins:=s+30;if(n<=s)then beginwriteln(n-s+31,' ',i);goto 1;end;end;end;1:end.