Напишите программу, которая рисует концентрические окружности с центром в середине графического окна. радиус самой маленькой окружности - 10 пикселей. разница радиусов - 20 пикселей. используйте изменение интенсивности какого-либо цвета ( или двух одновременно ) для заливки кругов. ​

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)

то что подчеркнуто на минимальный возвраст группы заменить.

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end