Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
<span>end.</span>
Тогда так
Program n1;
var x: integer;
begin
x:=-4;
writeln(abs(7*x-15)-sqr(sqr(x)));
x:=3;
writeln(abs(7*x-15)-sqr(sqr(x)));
end.
Наименьшим будет 0, так как вначале идет генерация чисел от -49 до 50
потом в массив b записали квадраты этих чисел , то есть в начале и в конце будут наибольшие числа и ближе к центру они будут уменьшаться , так как в массиве нет отрицательных и есть цифра 0, то 0*0=0, вот и наш ответ.
Тебе на что надо на ПК или Android?