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

uses crt; label goback; var a,b,c,d,e,f:integer; begin goback: write('Введите число: ');read(a); if (a<1000) or (a>9999) 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.