Составьте программу которая рисует 10 окружностей с одним центром внтри)

Вобщем, у меня pascal abc стоит, примерно 10 окружностей с центром внутри будут выглядеть так : program krug; uses graphabc; var i: integer; begin setpencolor (clblack); for i: =109 downto 1 do begin i: =i-9 ; circle (100,100,i); end; end.

4program months; {$apptype console} uses  sysutils; var  i: integer; begin  write ('vvedite nomer mesyaca');   writeln(i);   readln(i);   case i of    1: writeln ('january-1,2,3,4,5,6,7,8');     2: writeln ('february-22,23');     3: writeln ('march-8');     4: writeln ('april-net');     5: writeln ('may-1,8,9');     6: writeln ('june-12');     7: writeln ('july-net');     8: writeln ('august-net');     9: writeln ('september-net');     10: writeln ('october-net');     11: writeln ('november-4,5,6');     12: writeln ('december-net');     end;     readln   { todo -ouser -cconsole main : insert code here }end. там даты (номера) праздничных дней можете подправить, как вам надо!

"получил от гриши, ярослава и бориса ответ: не мы" - это некорректная постановка . если понимать это так, что каждый ответил "не я", имеет решение. но если "не мы" - это означает у каждого "не мы трое", то получается что трое ответили одинаково, но солгали двое, а это противоречие. следовательно, надо все же понимать, что "не мы" - это "не я". итак, два ответа истинных, два - ложных. тогда среди "не мы" есть хотя бы один истинный и один ложный ответ. пусть один "не мы" ложный (а два истинных), тогда его автор и взял ручку никиты, а лев солгал и он знает, кто взял ручку. а теперь пусть два "не мы" ложных, а один истинный. тогда получается, что  ручку взяли сразу двое - те, кто солгал. это противоречит условию, где сказано. что ручку взял один, следовательно, так быть не может. ответ: лев знает, кто взял ручку.