Дано двузначное число, определить, кратны ли единицы этого числа 5

vara: integer; beginwrite('введите двузначное число: '); readln(a); if a mod 5 = 0   then writeln('кратны')  else writeln('не кратны'); end.

Var n, m, x, y, i, j: integer; begin   write('n='); readln(n);   write('m='); readln(m);   write('x='); readln(x);   write('y='); readln(y);       for i : = -1 to 1 do     for j : = -1 to 1 do       if (i < > j) and (i < > -j) and           (x+i> 0) and (x+i< n+1) and           (y+j> 0) and (y+j< m+1) then           writeln('(', x+i, ',', y+j, ')'); end.

Использовать робот алг нач влево нц пока снизу свободно периметр мост кц кон алг мост нач вниз влево нц пока снизу не свободно если слева свободно то  влево все кц кон алг периметр нач закрасить вправо нц пока снизу не свободно закрасить вправо кц закрасить вниз нц пока слева не свободно и снизу свободно закрасить вниз кц закрасить влево нц пока сверху свободно закрасить вверх кц нц пока сверху не свободно закрасить влево кц закрасить вверх закрасить вправо нц пока снизу не свободно вправо кц вниз нц пока слева не свободно вниз кц кон