Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;
а) потому что должно записываться так а)=А2+В4
ж) потому что должно записываться так ж)=А12-В4
з) потому что должно записываться так з)=А123+О1
Вообщем если таблицы истиности то смотри вложение.
Вместо буквы T подставляй 1
Вместо буквы F подставляй 0
Пример:
A B A∧B
T T T
T F F
F T F
F F F
-------------------
A B A∧B
1 1 1
1 0 0
0 1 0
0 0 0
Var a,b,c:integer;
begin
readln(a,b,c);
if (a<=b) and (b<=c) then
begin
a:=a*a;
b:=b*b;
c:=c*c;
end
else if (a>b) and (b>c) then
begin
if a<b then a:=b;
if a<c then a:=c;
b:=a; c:=a;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1)
end;
writeln(a:4, b:4, c:4);
<span>end.</span>