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)
