решить математически и составить блок схему .Товар стоит a руб.bкоп.За него заплатила c руб.d коп.Сколько сдачи требуется получить?Входные данные:Вводятся 4 числа:a,b,c и d.Выходные данные: Необходимо вывести 2числа:e и f,число рублей и копеек,соответственно.

Const
  n = 15;

var
  x: array[1..n] of integer;
  i, k, t, min: integer;

begin
  Randomize;
  Writeln('Исходные элементы массива');
  min := 1000;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    if min > x[i] then begin
      min := x[i];
      k := i
    end
  end;
  t := x[k]; x[k] := x[1]; x[1] := t;
  Writeln;
  Writeln('Результирующие элементы массива');
  for i := 1 to n do Write(x[i]:4);
  Writeln
end.

Исходные элементы массива
 -28 -22 -15   3  27  29  34 -29 -49 -37 -19  31  40 -36   4
Результирующие элементы массива
 -49 -22 -15   3  27  29  34 -29 -28 -37 -19  31  40 -36   4

Const
  nm = 50;{максимальная длина массива}

var
  i, n, max, p: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  max := -32768;
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
    if max <= a[i] then
    begin
      max := a[i]; p := i
    end
  end;
  Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.

Тестовое решение:

Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7