Вывести все двузначные числа кратные 7. pascal abc

Program abc; var a: integer; begin for a: =10 to 99 do if a mod 7=0 then writeln(a,' '); end.

//pascal abc.net v3.1 сборка 1172 type   re=record   name: string;   res: integer;   end;   const   n=3; var   ar: array[1..n] of re;   i,j,c: integer;   cs: string; begin; for i: =1 to n do   begin   write('введите имя участника №',i,': ');   readln(ar[i].name);   write('введите результат участника №',i,': ');   readln(ar[i].res);   end;   for i: =1 to n-1 do   for j: =i to n do   if ar[i].res> ar[j].res then     begin;     c: =ar[i].res;     ar[i].res: =ar[j].res;     ar[j].res: =c;     cs: =ar[i].name;     ar[i].name: =ar[j].name;     ar[j].name: =cs;     end; for i: =1 to n do writeln(i,' ',ar[i].name,' ',ar[i].res); end. пример ввода: двачевская 23 персунов 22 хацуне 3 пример вывода: 1 хацуне 3 2  персунов 22 3 двачевская 23

pascalabc.net

function isprime(n: integer): boolean;   // простое?

begin

  if n < = 1 then

  begin

    result : = false;

    exit

  end;

  result : = true;

  var (j, r) : = (2, round(sqrt(;

  while result and (j < = r) do

    if n mod j = 0 then

    begin

      result : = false;

      exit

    end

    else

      j += 1;

end;

function ishyperprime(n: integer): boolean; // гиперпростое?

begin

  result : = false;

  var k : = 10;

  while n > 10 do

  begin

    n : = n div 10;  

    if not isprime(n) then exit

  end;  

  result : = true

end;

begin

  var (a, b) : = readinteger2;

  var found : = false;

  foreach var n in range(a, b) do

    if isprime(n) then // найдено простоe число

      if ishyperprime(n) then

      begin

        found : = true;

        n.print

      end;

  if not found then

    write(0)

end.