Имена участников (разделяйте запятой).
о,ь , и, е, и , и, - , о, не/ хотелось , е, и
Program a; var i:integer; begin for i:=1 to 100 do writeln(i*i); end.