Найти сумму большего и меньшего из трех чисел на алгоритмическом языке

Var a,b,c,max,min:integer;
 begin
    read(a,b,c);
    max:=c;
    min:=c;
    if min>a then min:=a else if min>b then min:=b;
    if max<a then max:=a else if max<b then max:=b;
    write(min,max);
 end.