Найти максимальное из четырех чисел  .составить программу на языке паскаль

VAR A,B,C,D:integer; Begin WriteLn('введите числа A,B,C,D); ReadLn(A,B,C,D); if (A=B) and (B=C) and (C=D) then WriteLn('все числа равны'); else if (A=B) or (B=C) or (C=D) or (A=D) then Begin Write ('только'); WritweLn('два три числа равны'); end else WriteLn('все числа разные'); end.