Задачи на Паскаль

[XXXX XXXX]

1) Дано целое положительное пятизначное число. Найти наименьшую цифру в этом числе.
2) Даны четыре числа. Если числа расположены в порядке возрастания ( каждое последнее больше предыдущего ), тогда все числа заменить на наибольшие из них, иначе каждое число увеличить в 10 раз.
3)Даны размеры отверстия, размеры кирпича. Пройдёт ли кирпич в отверстие?
4)Дан номер строки и номер столбца в поле шахмат. Определить его цвет. Поле 1 и 1 чёрное.

[Plague]

4ая. Остальные не интересные)

const
  s: array[0..1] of string = ('Black','White');
var
  x, y: integer;
begin
  read(x,y);
  write(s[abs(x-y) mod 2]);
end.

[XXXX XXXX]

Интересные, неинтересные, я в этом вообще не шарю.

[newerow1989]

1

var n,a,min:integer;
begin
   Write('n = '); Readln(n);
   min:=10;
   Repeat
      a:=n mod 10;
      If min>a then
         min:=a;
      n:=n div 10;
   Until n=0;
   Writeln(min);
   Readln;
end.

2

var n1,n2,n3,n4,max:integer;
begin
   Write('n1 = '); Readln(n1);
   Write('n2 = '); Readln(n2);
   Write('n3 = '); Readln(n3);
   Write('n4 = '); Readln(n4);
   If (n1<n2) and (n2<n3) and (n3<n4) then
   begin
      max:=n1;
      If max<n2 then
         max:=n2;
      If max<n3 then
         max:=n3;
      If max<n4 then
         max:=n4;
      n1:=max;
      n2:=max;
      n3:=max;
      n4:=max;
   end else
   begin
      n1:=n1*10;
      n2:=n2*10;
      n3:=n3*10;
      n4:=n4*10;
   end;
   Writeln;
   Writeln(n1);
   Writeln(n2);
   Writeln(n3);
   Writeln(n4);
   Readln;
end.

[Вадим Мошев]

Сообщение от Plague

write(s[abs(x-y) mod 2]);

Можно найти сумму координат клетки, тогда брать модуль не потребуется.