Логический тип(Delphi 7)

[matrix8325]

Составить программу,печатающю значение TRUE,если указанное высказование является истинным,и FALSE в противном случае.
1.Цифра M входит в десятичную запись четырехзначного числа N.

2.Цифры данного трехзначного числа N являются членами арифметической прогрессии.

[Sazary]

1.

b := false;
while n>0 do
 begin
 if n mod 10 = m then b := true;
 n := n div 10;
 end;
writeln(b);

Во второй сначала находите шаг (вычитаете первый член из второго). Затем в цикле от 3 до конца вычитаете из текущего элемента предыдущий. Если разность не равна шагу, то это не ариф. прогрессия.