Решить блок-схемой в трехзначном числе x зачеркнули его вторую цифру, когда к образованному при этом двузначному числу приписали вторую цифру числа x, то получилось число n. найдите число x

Program dv; var n, i, one, min, mini: integer; ar: array of integer; begin readln(n); setlength(ar, n+1); for i: =1 to n do readln(ar[i]); for i: =1 to n do begin if ar[i]=1 then inc(one); end; for i: =1 to n do begin if ar[i]> 0 then ar[i]: =0; end; min: =ar[1]; mini: =1; for i: =2 to n do begin if ar[i]< min then begin min: =ar[i]; mini: =i; end; end;         for i: =1 to n do write(ar[i], ' ');         writeln;         writeln(min, ' ', mini); end.

C: #include < stdio.h> int main() {     int a;     scanf("%d", & a);     if(a % 10 == (a - a % 10)  /  10)     {         printf("yes");     }     else     {           printf("no");     } } pascal: program z1; var a: integer; begin readln(a); if  a mod 10 = (a - a mod 10)  /  10 then     writeln("yes") else       writeln("no"); end.