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