Программирование на языке Паскаль.

Даны три числа a, b, c. Определить какое из них равно d. Если ни одно не равно d, то найти max { d - a, d - b, d - c }.

var a, b, c, d, min:real;

flag: boolean;

begin

flag:=true;

writeln ('Enter A, B, C, D numbers:') ;

readln (a, b, c, d) ;

if (a=d) then begin

writeln ('a equals to d!') ;

flag:=false;

min:=a;

end;

if (b=d) then begin

writeln ('b equals to d!') ;

flag:=false;

if (b
end;

if (c=d) then begin

writeln ('c equals to d!') ;

flag:=false;

if (c
end;

if flag then writeln ('Max difference: ', d-min) ;

end.