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

це завдання ще актуальне?

мен варто починати його виконувати?

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


program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (xgt;x1) and (xgt;x2) then a:=x 
else if (x1gt;x) and (x1gt;x2) then a:=x1 
else if (x2gt;x) and (x2gt;x1) then a:=x2;  

if (xlt;x1) and (xlt;x2) then a1:=x 
else if (x1lt;x) and (x1lt;x2) then a1:=x1 
else if (x2lt;x) and (x2lt;x1) then a1:=x2;

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

end.