Двны два числа .найти наименьшее из них . lazarus
Var min,a,b:integer; begin min:=a; if min>=b then min:=b; write('min=',min); end.