Написать программу через паскаль: известна масса каждого предмета загружаемого в автомобиль определить общую массу груза pascal

Program gruz; uses crt; var x,y,z: integer; begin writeln( 'введіть масу кожного груза через пробіл і натисніть enter'); read (x,y); z: =(x+y); writeln (z); end.

Выходными данными компьютера является чек и  сдача(если она требуется). арифметические действия: из количество денег, что дал покупатель  нужно отнять сумму всех купленных товаров и таким образом найти нужную сдачу. например: входные данные: кол-во введенных денег = 100 руб. сумма цены товаров = (10 руб. + 21 руб + 37.21 руб.) 100 руб. - (10 руб.  + 21 руб + 37.21 руб.) = 100 руб.  - 68,21 руб. = 31,79. в данном случае в чеке будет указана введенное количество денег и сумма всех купленных товаров. сдача в этом примере будет  = 31,79. *кол-во это количество.

//pascal var   a: array [1..5] of integer;   min, max, minind, maxind: integer;   i: byte; begin   writeln('заполнение массива.');   for i : = 1 to 5 do   begin       write('а[', i, '] = '); readln(a[i]);   end;   writeln;   max : = a[1]; min : = a[1];   for i : = 1 to 5 do   begin   if max < a[i] then begin max : = a[i]; maxind : = i; end;   if min > a[i] then begin min : = a[i]; minind : = i; end;   end;   writeln('номер минимального элемента = ', minind);   writeln('номера минимального и максимального = ', minind, ' и ',maxind); end.