type z=array of integer;
var a: z;
i,j,k: integer;
begin
setlength(a,1);
readln(a[0]);
i:=1;
while(a[i-1]<>0) do
begin
setlength(a,i+1);
readln(a[i]);
i:=i+1;
end;
setlength(a,length(a)-1);
for i:=0 to length(a) do
for j:=0 to length(a)-2 do
if (a[j] < a[j+1]) then
begin
k:=a[j];
a[j]:= a[j+1];
a[j+1]:=k;
end;
write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);
end.
var x:real ;
begin
readln(x);
if x>3 then writeln((x*x+2)/(x-3))
else writeln (2*x*x-5)
end.
Рукописи не горят
Никакая причина не извиняет невежливость.
Попробуйте такое:
uses graphABC;
var
x, y: array [1 .. 100] of integer;
mI, mJ, mK, maxR, R, i, j, k: integer;
begin
randomize;
for i := 1 to 100 do
begin
x[i] := random(600) + 10;
y[i] := random(360) + 10;
circle(x[i], y[i], 2);
end;
maxR := 0;
for i := 1 to 100 do
for j := 2 to 99 do
for k := 3 to 98 do
begin
R := abs((x[i]-x[k])*(y[j]-y[k])-(x[j]-x[k])*(y[i]-y[k])div 2);
if R > maxR then
begin
maxR := R;
if R > mI then mI := i;
if R > mJ then mJ := j;
if R > mK then mK := k;
end;
end;
setpencolor(clred);
line(x[mI], y[mI], x[mJ], y[mJ]);
line(x[mJ], y[mJ], x[mK], y[mK]);
line(x[mK], y[mK], x[mI], y[mI]);
end.