Ответ: program example1;Var i:byte;beginfor i:=1 to 10 dowrite(i*i,’ ‘);end.