<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),-99,99).Println.Where(x->x.IsEven).
Println.Take(2).Println;
end.
<u>Пример</u>
n= 15
45 38 43 77 -41 -49 36 98 -29 93 9 34 9 -74 53
38 36 98 34 -74
38 36
Uses crt;
var
i,a:integer;
begin
for i:=1 to 16 do
begin
textcolor(i);
a:=random(50);
write(a);
sound(I*100);
delay(5000);
nosound;
end;
readkey;
end.<span>
</span>
Procedure s_v(r:real; var s,v:real);
begin
s:=4*Pi*r*r;
v:=4/3*Pi*r*r*r;
end;
var a,b:real;
begin
s_v(5,a,b);
writeln('r=5, S=',a:5:2,' V=',b:5:2);
s_v(10,a,b);
writeln('r=10, S=',a:5:2,' V=',b:5:2);
s_v(15,a,b);
writeln('r=15, S=',a:5:2,' V=',b:5:2);
<span>end.</span>
Var xa,ya,xb,yb:real;
begin
read(xa,ya,xb,yb);
writeln(sqrt(sqr(xa-xb)+sqr(ya-yb)):1:1);
<span>end.</span>