Ответ:

var a,i: integer;

begin

a:=0;

while (a<=35 ) do begin

 a:=a+1;

 if (a mod 5 = 0) then

   writeln(a);

end;

end.

Ответ:

C++

#include<iostream>

#include <cmath>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUS");

int i = 0;

while ( i <=35)

{

 i++;

 if (i % 5 == 0)

 {

  cout << i << endl;

  continue;

 }

}

}