На каких уроках школьники получают социальные знания?
1) технологии
2) истории
3) физической культуры
4) русского языка​

var m:integer; procedure p(m:integer); begin write(m); if (m>9)and(m<20)or(m mod 10>4)or(m mod 10=0) then writeln(' лет') else if m mod 10=1 then writeln(' год') else writeln(' года') end; begin write('Возраст? '); readln(m); p(m); readln end.