Ошибка где то в присвоение, т.к на выходе все время получаю 0.

Вопрос: В чем же ошибка?

—

Program test,

var a, b, c, d: integer,

begin

writeln (Enter A),

read (a),

writeln (Enter B),

read (b),

writeln (Enter C),

read (c),

if (a&lt,b) and (a&lt,c) then a:=d,

if (b&lt,a) and (b&lt,c) then b:=d,

if (c&lt,a) and (c&lt,b) then c:=d,

writeln (Complete),

writeln (Your number is, d),

end.

Ответы:

d:=a, d:=b, d:=c,                         

а то у тебя d равно нулю