Question

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

Answer 1

var
x,y:integer;

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

Answer 2

Через Qbasic

Answer 3

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