Дано целое положительное четырехзначное число а.Найти минимальную цифру среди первых трех цифр числа, а также определить:первая или вторая цифра числа четная,или обе цифры четные,или обе цифры нечетные.Результаты вывесите на экран.

Uses crt;
label goback;
var
a,b,c,d,e,f:integer;
begin
goback:
write(Введите число: );read(a);
if (a9999) then 
  begin
    writeln(Введите четырехзначное число.);
    goto goback;
end;
b:=a div 1000;
c:=a div 100 mod 10;
d:=a div 10 mod 10;
if (b=c) and (c=d) then  begin    writeln(Первые 3 цифры равны.);  end;
if (b=c) and (c>d) then  begin    writeln(d, - Наименьшая цифра из первых 3 цифр.);end;
if (d=b) and (b>c) then  begin    writeln(c, - Наименьшая цифра из первых 3 цифр.);end;
if (c=d) and (d>b) then  begin    writeln(b, - Наименьшая цифра из первых 3 цифр.);end;
if (b>c) and (c>d) and (b>d) then  begin    writeln(d, - Наименьшая цифра из первых 3 цифр.);end;
if (c>d) and (d>b) and (c>b) then  begin    writeln(b, - Наименьшая цифра из первых 3 цифр.);end;
if (b>d) and (d>c) and (b>c) then  begin    writeln(c, - Наименьшая цифра из первых 3 цифр.);end;
if (b mod 2 = 0) then  begin    writeln(Первая цифра четная);  end;if (c mod 2 = 0) then  begin    writeln(Вторая цифра четная);end;
if (b mod 2 = 0) and (c mod 2 = 0) then  begin    writeln(И первая и вторая цифра четная);  end;
if (b mod 2 = 1) and (c mod 2 = 1) then  begin    writeln(И первая и вторая цифра не четная);end;
End.