Листинг программы

program z43;

{ На интервале (1000 ; 9999) найти все простые числа,

  каждое из которых обладает тем свойством, что сумма

  первой и второй цифр записи этого числа равна сумме

  третьей и четвёртой цифр                            }

 uses crt;

 var b:array[1..1000] of longint;er:integer;

     i,j,fl,h,s1,s2,s3,s4:longint;

     ii:string;label met1,met2;

 begin

  clrscr;

   i:=1000;

   met1:while i<=9999 do

        begin

         for j:=2 to i-1 do

   if i mod j=0 then begin fl:=1;goto met2; end;

    met2:if fl=0 then begin

                       str(i,ii);

                       val(ii[1],s1,er);val(ii[3],s3,er);

                       val(ii[2],s2,er);val(ii[4],s4,er);

                       if s1+s2=s3+s4 then

             begin

                         inc(h);b[h]:=i;inc(i);goto met1;

                        end;

                      end;

         fl:=0;inc(i);

        end;

    for i:=1 to h do write(b[i],' ');

  readln;

 end.