Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.
Const n=10;
var a:array[1..n] of integer;
s,r,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
begin
s:=s+a[i];
r:=s/n;
end;
writeln('r=',r);
readln;
<span>end. </span>
Учитывая первый оператор write(4) и то, что цикл будет выполнен 3 раза, то получим 4864