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

Program tt;var  A,B,C,M: Integer;beginWriteln ('Введите три числа.');      Readln(A,B,C);  if (A = B) and (B = C) then Writeln ('Числа равны.')else beginif A < B then M:=Aelse M:=B;if M < C then Writeln ('Наименьшее число - ', M,'.')else Writeln ('Наименьшее число - ', C,'.')end;End.