Помогите составить программу на паскале нахождения из 3 введенных чисел наименьшее

Program tt;

var A, B, C, M: Integer;

begin

Writeln ('Введите три числа.') ;

Readln (A, B, C) ;

if (A = B) and (B = C) then Writeln ('Числа равны.')

else begin

if A < B then

M:=A

else M:=B;

if M < C then Writeln ('Наименьшее число - ', M,'.')

else Writeln ('Наименьшее число - ', C,'.')

end;

End.