program n1;
var q,w:real;
begin
writeln('ведите первое число');
readln(q);
writeln(' ведите второе число');
readln(w);
if q<w then
writeln(q)
else
writeln(w);
end.
Объяснение:
