Решение задачи While 23

#include <stdio.h>
int main(void)
{
   int n;
   printf("N:");
   scanf ("%i", &n);
   int k=2;
   while((k<n-1) & ((n%k)!=0) ){
       ++k;
   }
   printf("%s\n",((n%k)!=0)?"True":"False");
   return 0;
}

import random

A = random.randrange(1,1000)
B = random.randrange(1,1000)
print("A = {0}, B = {1}".format(A,B))
while B > 0:
    A,B = B,A%B
print("НОД: ",A)
									

program While23;
var
  A,B :Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число B: ');
  Readln(B);
  while (A<>0) and (B<>0) do
   begin
    if a>b then A:=(a mod b)
    else B:=(B mod A);
   end;
  Writeln(A+B);
end.