Составить программу нахождения минимального числа из 2-х чисел

Через Qbasic

На бейсике не пишу. Суть алгоритма понятна в любом случае

varx,y:integer;beginreadln (x,y);if (x <> y) thenif (x<y) thenwriteln ('Min = ',x)elsewriteln ('Min = ',y);end.