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

Question

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

Answer 1

Var
x,y:integer;

begin
readln (x,y);
if (x <> y) then
if (xwriteln ('Min = ',x)
else
writeln ('Min = ',y);
end.

Comments

Через Qbasic

---

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