Составить программу на паскале нахождения из 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.