Даю 30 баллов. Язык: ПаскальАБЦ

Var a,b,c,min,max,s: integer;
begin
  write('Ведите числo а '); readln(a);
  min:=a; max:=a;
  write('Водите числo b '); readln(b);
  if blt;min then min:=b;
  if bgt;max then max:=b;
  write('Водите числo c '); readln(c);
  if clt;min then min:=c;
  if cgt;max then max:=c;
  writeln('Сумма min + max = ',min+max);
end.