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

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.