Дано целое положительное четырехзначное число а.

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

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.