Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program sdfs;
- var n,m,l,i,f,d:integer;
- begin
- read(n,m,l);
- f := 0;
- if (l > m) and (l > n) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if l > 0 then begin l := l - 1; write(3); end;
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- end;
- for i := 1 to n do begin
- write(1);
- end;
- end;
- if (m > l) and (m > n) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- if l > 0 then begin l := l - 1; write(3); end;
- end;
- end;
- if (n > l) and (n > m) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- if l > 0 then begin l := l - 1; write(3); end;
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- end;
- for i := 1 to n do begin
- write(1);
- end;
- end;
- if (n < l) and (l = m) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if l > 0 then begin l := l - 1; write(3); end;
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- end;
- end;
- if (n = l) and (l > m) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- if l > 0 then begin l := l - 1; write(3); end;
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- end;
- for i := 1 to n do begin
- write(1);
- end;
- end;
- if (n = m) and (l < m) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- if l > 0 then begin l := l - 1; write(3); end;
- end;
- for i := 1 to n do begin
- write(1);
- end;
- end;
- if (n = m) and (l = m) and (f = 0) then begin
- f := 1;
- d := 0;
- while d = 0 do begin
- if n > 0 then begin n := n - 1; write(1); end else d := 1;
- if m > 0 then begin m := m - 1; write(2); end else if (m = 0) and (l > 0) then d := 1;
- if l > 0 then begin l := l - 1; write(3); end;
- end;
- for i := 1 to n do begin
- write(1);
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement