const
n = 5; m = 5;
var
a: <em>array [0..m, 0..n] of shortint</em>;
i, b, c: <em>integer</em>;
begin
for i := 1 to m do
begin
for b := 1 to n do
begin
a[i, b] := random(-90, 0);
write(a[i, b]:4);
if (i = m) then
if (a[i, b] mod 4 = 0) then
c += 1;
end;
writeln(<em>(i = m) and (b = n)</em> ? ' ' + c : '');
end;
writeln();
<span>end.</span>
Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
<h2>100 121 144 169 196 225 256 289 324 361 400</h2>