Склавиатуры вводится последовательность из n чисел . определите сумму максимального и минимального числа данной последовательности. нарисовать блок схему ! язык программирования : паскаль .

Var  min, max, i, k: integer;   a: array[1..1000] of integer;
begin  readln(k);  readln(a[1]);   for i := 2 to k do    readln(a[i]);  min := a[1];  max := a[1];  for i := 1 to k do   begin    if a[i] < min then min := a[i];    if a[i] > max then max := a[i]; end;  writeln(max + min);end.