Написать программу в Паскаль ABC
Составить алгоритм нахождения меньшего из 2-х значений
Определить,является ли данное число чётным или нечётным

program m;var a,b,c:integer;beginreadln(a,b);if a<bthen c:=aelse c:=b;if c mod 2 =0then writeln ('наименьшее число = ',c , '; данное число чётное')else writeln ('наименьшее число = ',c , '; данное число нечётное');end.