Skip to content

Instantly share code, notes, and snippets.

@si14

si14/gist:556024

Created August 29, 2010 06:09
Show Gist options
  • Save si14/556024 to your computer and use it in GitHub Desktop.
Save si14/556024 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
Program yoba;
uses crt;
var
a1: integer;
a2: integer;
a3: integer;
a4: integer;
a5: integer;
a6: integer;
a7: integer;
a8: integer;
a9: integer;
a10: integer;
maksimum: integer;
Begin
clrscr;
a1 := random(100);
a2 := random(100);
a3 := random(100);
a4 := random(100);
a5 := random(100);
a6 := random(100);
a7 := random(100);
a8 := random(100);
a9 := random(100);
a10 := random(100);
if (a1 < a2) then begin
if (a2 < a3) then begin
if (a3 < a4) then begin
if (a4 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a4 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a4 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a4 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a4 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a4 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a4;
end;
end;
end;
end;
end;
end;
end else begin
if (a3 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a3 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a3 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a3 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a3 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a3 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a3;
end;
end;
end;
end;
end;
end;
end;
end else begin
if (a2 < a4) then begin
if (a4 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a4 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a4 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a4 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a4 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a4 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a4;
end;
end;
end;
end;
end;
end;
end else begin
if (a2 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a2 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a2 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a2 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a2 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a2 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a2;
end;
end;
end;
end;
end;
end;
end;
end;
end else begin
if (a1 < a3) then begin
if (a3 < a4) then begin
if (a4 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a4 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a4 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a4 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a4 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a4 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a4;
end;
end;
end;
end;
end;
end;
end else begin
if (a3 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a3 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a3 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a3 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a3 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a3 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a3;
end;
end;
end;
end;
end;
end;
end;
end else begin
if (a1 < a4) then begin
if (a4 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a4 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a4 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a4 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a4 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a4 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a4;
end;
end;
end;
end;
end;
end;
end else begin
if (a1 < a5) then begin
if (a5 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a5 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a5 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a5 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a5 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a5;
end;
end;
end;
end;
end;
end else begin
if (a1 < a6) then begin
if (a6 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a6 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a6 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a6 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a6;
end;
end;
end;
end;
end else begin
if (a1 < a7) then begin
if (a7 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a7 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a7 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a7;
end;
end;
end;
end else begin
if (a1 < a8) then begin
if (a8 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a8 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a8;
end;
end;
end else begin
if (a1 < a9) then begin
if (a9 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a9;
end;
end else begin
if (a1 < a10) then begin
maksimum:=a10;
end else begin
maksimum:=a1;
end;
end;
end;
end;
end;
end;
end;
end;
end;
writeln('a1: ', a1);
writeln('a2: ', a2);
writeln('a3: ', a3);
writeln('a4: ', a4);
writeln('a5: ', a5);
writeln('a6: ', a6);
writeln('a7: ', a7);
writeln('a8: ', a8);
writeln('a9: ', a9);
writeln('a10: ', a10);
writeln('Nayden maksimum: ', maksimum);
readkey;
End.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment