program changeNumbers;
Var
arr: array[1..5, 1..5] of integer;
i, j: integer;
Begin
for i := 1 to 5 do
for j := 1 to 5 do
begin
if arr[i, j] < 7 then
arr[i, j] := arr[i, j] * arr[i, j];
end;

// Output the modified array
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(arr[i, j], ' ');
writeln;
end;
End.