var a,b,min:real;

begin

readln(a);

readln(b);

if a<b then begin

min:=a;

end;

if b<a then begin

min:=b;

end;

end.

З.Ы: решил на языке pascalABC, т.к. вы не указали в условии требуемый язык программирования

PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)