вивести менше з двох даних чисел

Var   A,B:integer;BeginWrite('Введите два числа: ');ReadLn(A,B);if A<B then Write(A)else Write(B)End.