Сна питоне юра решил подготовиться к региональной олимпиаде по информатике. он выбрал на сайте informatics. mccme. ru n , чтобы решить их на каникулах. в первый день юра решил k , а в каждый следующий день юра решал на одну больше, чем в предыдущий день. определите, сколько дней уйдет у юры на подготовку к олимпиаде

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.