Написать программу на паскале.Даны три числа m, n, p. Определить какое из них равно d. Если ни одно не рано d, то найти max(d-m, d-n, d-p)

Предыдущий
вопрос Следующий
вопрос

program FindD;
var
m, n, p, d: integer;
maxDifference: integer;
begin
writeln('Enter three numbers:');
readln(m, n, p);
writeln('Enter another number:');
readln(d);
if (d = m) then
writeln(d, ' equals ', m)
else if (d = n) then
writeln(d, ' equals ', n)
else if (d = p) then
writeln(d, ' equals ', p)
else
begin
maxDifference := d - m;
if (d - n > maxDifference) then
maxDifference := d - n;
if (d - p > maxDifference) then
maxDifference := d - p;
writeln('None of ', m, ', ', n, ', ', p, ' equals ', d);
writeln('The maximum difference is ', maxDifference);
end;
readln;
end.