//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию uses System.Linq; begin writeln('III'); var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList; writeln;
while a.Any() do begin write(a[0], ' '); a.RemoveAt(0); if not a.Any then break;
write(a.Last, ' '); a.RemoveAt(a.Count - 1); if not a.Any then break;
var n := 0; if a.Count > 1 then n := a.Count div 2 - 1; write(a[n], ' '); a.RemoveAt(n); end; end.
1)Program n_1; var x,y,z,c:integer; begin readln (x,y,z); c:=x; if c>y then c:=y; if c>z then c:=z; writeln (c); end. 2)Program n_2; var x,y,z:integer; q,w,e:boolean; begin readln (x,y,z); q:= (y>x) and (z>x); w:= (y<x) and (y<z); e:= (z<y) and (z<x); if e=True then writeln (z); if w=True then writeln (y); if q=True then writeln (x); end. 3)Program n_3; var x,y,z:integer; begin readln (x,y,z); if (x<y) and (x<z) then writeln (x); if (y<x) and (y<z) then writeln (y); if (z<y) and (z<x) then writeln (z); end.
Графическим редактором является Paint