Составьте программу на языке Паскаля, которая находит сумму наименьшего и наибольшего из 3 введенных с экрана числа

Это, если не учитывать, что введённые числа могут быть одинаковы

program p17;

var

x, x1, x2: integer;

a, a1, a2: integer;

beginwrite ('Введите число: ') ;

readln (x) ;

write ('Введите число: ') ;

readln (x1) ;

write ('Введите число: ') ;

readln (x2) ;

if (x>x1) and (x>x2) then a:=x

else if (x1>x) and (x1>x2) then a:=x1

else if (x2>x) and (x2>x1) then a:=x2;

if (x
else if (x1
else if (x2
a2:=a+a1;

writeln ('Cумма самого большого и самого маленького числа, введённого вами: ', a2) ;

end.