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

Это, если не учитывать, что введённые числа могут быть одинаковыprogram p17;varx, 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<x1) and (x<x2) then a1:=x else if (x1<x) and (x1<x2) then a1:=x1 else if (x2<x) and (x2<x1) then a1:=x2;a2:=a+a1;writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);end.