Вывести через пробел, сколько купюр достанутся Васе, Пете и Коле соответственно.

 begin
  var ОбщееЧислоКупюр, ЗначениеМинимальнойКупюры, КоличествоМинимальныхКупюр,
  ЗначениеМаксимальнойКупюры, КоличествоМаксимальныхКупюр, ЗначениеПервойКупюры,
  ЗначениеОчереднойКупюры : Integer; var Txt : Text; Reset(Txt, 'input.txt');
  ReadLn(Txt, ОбщееЧислоКупюр); Read(Txt, ЗначениеПервойКупюры);
  ЗначениеМинимальнойКупюры := ЗначениеПервойКупюры; КоличествоМинимальныхКупюр
  := 1; ЗначениеМаксимальнойКупюры := ЗначениеПервойКупюры;
  КоличествоМаксимальныхКупюр := 1; for var N := 2 to ОбщееЧислоКупюр do begin
  Read(Txt, ЗначениеОчереднойКупюры); if ЗначениеОчереднойКупюры <
  ЗначениеМинимальнойКупюры then begin ЗначениеМинимальнойКупюры :=
  ЗначениеОчереднойКупюры; КоличествоМинимальныхКупюр := 1; end else
  if ЗначениеОчереднойКупюры > ЗначениеМаксимальнойКупюры then begin
  ЗначениеМаксимальнойКупюры := ЗначениеОчереднойКупюры;
  КоличествоМаксимальныхКупюр := 1; end else if ЗначениеОчереднойКупюры =
  ЗначениеМинимальнойКупюры then КоличествоМинимальныхКупюр += 1 else if
  ЗначениеОчереднойКупюры = ЗначениеМаксимальнойКупюры then
  КоличествоМаксимальныхКупюр += 1; end; Close(Txt); Rewrite(Txt, 'output.txt');
  WriteLn(Txt, КоличествоМаксимальныхКупюр, #32, КоличествоМинимальныхКупюр, #32,
  ОбщееЧислоКупюр - КоличествоМаксимальныхКупюр - КоличествоМинимальныхКупюр);
  Close(Txt);
end.