2. Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

var / /начало программы;

a: array[1 ... 53] of integer; / /переменные целого типа;

i, n: byte; / /переменные в которых хранится информация;

begin

n:=34; / /присваем значение переменной;

write ('Числа: '); / /просьба ввести числа;

for i:=1 to 53 do / /цикл перебирает числа от 1 до 53;

begin

n:=n+1; / /формула;

a[i]:=n; / /работа массива;

write (a[i]:3);

end;

writeln; / /вывод;

writeln ('При делении на 7 дают остаток 1, 2 или 5: '); / /вывод пояснения;

for i:=1 to 53 do / /цикл;

begin

if (a[i] mod 7 = 1) or

(a[i] mod 7 = 2) or (a[i] mod 7 = 5) / /действия программы описанные выше;

then begin

if a[i] mod 7 = 1 then writeln (a[i], ' (остаток 1) ');

if a[i] mod 7 = 2 then writeln (a[i], ' (остаток 2) ');

if a[i] mod 7 = 5 then writeln (a[i], ' (остаток 5) ');

end;

end;

end.