Нужно составить блок-схему очень нужно

program lab3;
var x:array [1..10] of integer;
i,min,max:integer;
begin
for i:=1 to 10 do begin writeln('введитие x[',i,']');
readln(x[i]);end;
min:=x[1];
max:=x[1];
for i:=2 to 10 do begin
if x[i]>max then max:=x[i];
if x[i] end;
writeln(min*max)
end.

lizavolod17    2   30.01.2021 13:57    7