//Знаю, что это решение далеко от понятия "изящество" //Pascal ABC.NET v3.0 сборка 1111 var max1,max2,max3,i,maxi1,maxi2:integer; ar:array of integer; begin max1:=-2147483648; max2:=-2147483648; max3:=-2147483648; setlength(ar,1); readln(ar[0]); i:=0; repeat inc(i); setlength(ar,i+1); readln(ar[i]); until ar[i]=0; for i:=0 to i do if ar[i]>max1 then begin; max1:=ar[i]; maxi1:=i; end; for i:=0 to i do if (ar[i]>max2) and (i<>maxi1) then begin; max2:=ar[i]; maxi2:=i; end; for i:=0 to i do if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i]; write('Max1=',max1,' Max2=',max2,' Max3=', max3); end.
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.