2. Локальные, глобальные,региональные
1. <span>Сети отделов, сети кампусов, корпоративные сети</span>
<span>var i,x,sum,ar:integer;
randomize;
For i=1 to 7 do begin
x:=random(11);
sum:=sum+x;
end;
ar:=sum/7;
</span>
var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.