Решение задачи Proc 8

#include <bits/stdc++.h>

using namespace std;
void func (int k, int d, int d1)
{
    cout << k * 10 + d << endl;
    k = k * 10 + d;
    cout << k * 10 + d1;
}
int main()
{



    int k, d, d1;
    cin >> k >> d >> d1;
    func(k, d, d1);
    return 0;
}

import random

def AddRightDigit(D, K):
    K['K'] = D+K['K']*10
    
R = {'K' : None}
R['K'] = random.randrange(1,10000)
print("Число K: ", R['K'])
for i in range(3):
    D = random.randrange(0,10)
    print("Число D, ",i+1,": ", D)
    AddRightDigit(D, R)
    print("Измененное K: ", R['K'])
    print()
									

program Proc8;
procedure AddRightDigit(D:Integer; var K:Integer);
begin
K:=K*10+D;
end;
 
var
  K, D1, D2: Integer;
begin
  Write('Введите число K: ');
  Readln(K);
  Write('Введите цифру D1: ');
  Readln(D1);
  AddRightDigit(D1,K);
  writeln (K);
  Write('Введите цифру D2: ');
  Readln(D2);
  AddRightDigit(D2,K);
  writeln (K);
end.