Var a,b: integer;
<span>begin
</span><span> write('a b через пробел: ');
</span><span> readln(a,b);
</span><span> if (((a div 10) mod 10) mod 2 = 0) or
</span><span> (((b div 10) mod 10) mod 2 =0) then
</span><span> begin
</span><span> a:=a*a; b:=floor(sqrt(b));
</span><span> end
</span><span> else
</span><span> begin
</span><span> a:=floor(sqrt(a));
</span><span> b:=b*b;
</span><span> end;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a b через пробел: 13 54
<span>a = 3 b = 2916
</span>
a b через пробел: 24 16
<span>a = 576 b = 4
</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
<u>Пример</u>
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605
Потому-что все будут видеть и читать мою страничку