Напишите программу по блок-схеме (язык любой)

#include <iostream>

using namespace std;

signed main(){

  for(int i = 1000; i < 10000; i++){

      int k1,k2,k3,k4, num = i;

      k1 = num % 10;

      num /= 10;

      k2 = num % 10;

      num /= 10;

      k3 = num % 10;

      num /= 10;

      k4 = num % 10;

      if(k1 + k2 + k3 + k4 == 15)

          cout << i << " ";

  }

}

Ответ:

var i,a,b,c,d,f:integer;

begin

   for i:=1000 to 9999 do begin

       a := i mod 10;

       b := (i div 10) mod 10;

       c := (i div 100) mod 10;

       d := (i div 1000) mod 10;

       f := a + b + c + d;

       if f = 15 then write(i,' ');

   end;

end.