Издают звук, это точно, мы не давно проходили))
Варенье съел Вася.Потому что против него идет Маша и Петя.
Пробелы не расставлены верно (перед mod и после):
<span>if (i+j) mod 2=0 then a[i,j]:=i+j;</span>
Расположить наименования в след. порядке: 7 -4 -1 -8 -5 -6 -3 -2
Var
X:real;
Begin
Write('X = ');
ReadLn(X);
WriteLn('Y = ',X*X);
End.