;подставить к записи 54*5* вместо звездочер такие цифры, чтобы полученное пятизначное число делилось на 45.

Var j,i: integer; begin for i: = 0 to 9 do   begin   for j: =0 to 9 do   begin   if ((54*100+i*10+5)*10+j) mod 45 = 0 then writeln((54*100+i*10+5)*10+j);     end;   end;   end.

Вам  подойдет число  54855  или  54450

//1a var   i,x1,x2: integer; begin   for i: =10 to 99 do   begin     x1: =i mod 10;   x2: =i div 10;     if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);   end; end. //1б var   i,x1,x2: integer; begin   for i: =10 to 99 do   begin     x1: =i mod 10;     x2: =i div 10;     if x1+x2+sqr(x1+x2)=i then writeln(i);   end; end. //2 var   i,n,a,k1,k2: integer; begin   readln(n);   for i: =1 to n do   begin     readln(a);     if a< 1985 then k1: =k1+1;     if a> 1990 then k2: =k2+1;   end;   writeln('родившиеся до 1985: ',k1);   writeln('родившиеся после 1990: ',k2); end.

Const       handsfree = true;       n = 15; var       a: array[1..n] of real;       i: integer;       sum: real; begin       {ввод массива}       writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет суммы и произведения}       sum : = 0;       for i : = 1 to n do       begin               if a[i] > 10 then                       sum : = sum + a[i];       end;       writeln('sum = ', sum); end.