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

Program m;
var a,b,c:integer;
begin
readln(a,b);
if athen c:=a
else c:=b;
if c mod 2 =0
then writeln (наименьшее число = ,c , ; данное число чётное)
else writeln (наименьшее число = ,c , ; данное число нечётное);
end.