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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.