Не так уж и трудно, если подумать...
program Project2;
var
n,a,b,c,i,k,max,min: longint;
inp,outp: text;
begin
assign(inp,'input.txt');
reset(inp);
assign(outp,'output.txt');
rewrite(outp);
readln(inp,n);
max:=0;
min:=0;
c:=0;
for i:=1 to n do
begin
read(f1,a);
if i=1 then
b:=a;
if a>max then
max:=a;
k:=a-c;
c:=a;
if k<0 then
begin
k:=abs(k);
min:=min+k;
if k>min then
min:=k;
end;
end;
max:=max-b;
write(outp,max,' ',min);
close(inp);
close(outp);
end.
(3*3+3):3=4
(3+3):3+3=5
3:3+3+3=7
3*3-3:3=8
Блок-схема и таблица на фотографии. Там, где одна часть алгоритма отдельна, это я забыл ее туда включить.
системы исчисления от 7 до 16