опубликован 13-01-2002 09:45 MSK        

---

var A,B,C,D,e:Integer;
begin

writeln("введите A");
readln(A);

/* повторить эти две строчки для B, C и D */
e=0;
if (A=D) then begin writeln("A=D"); e=e+1; end;
if (B=D) then begin writeln("B=D"); e=e+1; end;
if (C=D) then begin writeln("C=D"); e=e+1; end;
if (e=2)
begin
writeln ("одно число не равно D");
if (a>d) then writeln("a>D") else writeln("a<=D");
if (d>b) then writeln("d>b") else writeln("d<=b");
if (b>c) then writeln("b>c") else writeln("b<=c");
end;
end.

опубликован 13-01-2002 19:04 MSK            

---

Нет :))))

Во-первых кавычки должны быть одинарными (т.е. апострофы), во-вторых, присвоение (но не сравнение!) должно быть не e=0 , а e:=0 (что, собственно, касается и e=e+1), в-третьих, комментарии /* */ пройдут только на TMT Pascal, так что лучше использовать { } или (* *)