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

Program Chisla;

Uses Crt;

var i:integer;

begin

    clrscrl

    for i:=35 to 87 do

        if (((i mod 7)=1) or ((i mod 7)=2) or ((i mod 7)=5)) then writeln(i);  

   readkey;

end. 

var

  i: integer;

begin

  for i:= 35 to 87 do

  begin

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

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

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

  end;

end.