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

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