В PascalABC.Net На 6 строке пишет " Встречено 'a1', а ожидалось ';' "
.
program z1;
var
a,a1,a2,a3,a4,d1,d2: integer;
begin
Read (a)
a1:=d1_div_10;
writeln (a1)

a2:=a_mod_10;

writeln (a2)

a3:=a_mod_10;

writeln (a3)

a4:=a_mod_10;

writeln (a4)

d1:=a_div_10;

d2:=a_div_10

end.

#include < stdio.h> #include < stdlib.h> #include < time.h> #include < locale.h> void swap (int *a, int *b) {       int temp = *a;       *a = *b;       *b = temp; }   void printarray (int arr[], int n) {       int i;       for (i = 0; i < n; i++) printf("%3d ", arr[i]);       printf("\n"); }   void randomize ( int arr[], int n ) {       long long x;       asm("rdtsc" : "=a"(x));       srand(x);       int i;       for (i = n - 1; i > 0;       {               int j = rand() % (i+1);               swap(& arr[i], & arr[j]);       } } int main() {       setlocale(lc_all, "rus");       int a[10] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};       int b[10] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};         int c[10];             randomize (a, 10);       printf("первый массив: \n");       printarray(a, 10);           randomize (b, 10);       printf("второй массив: \n");       printarray(b, 10);             int i = 0, j = 0;             for (i = 0; i < 10; i++)             for (j = 0; j < 10; j++)                   if (a[i] == b[j])                   {                         c[i] = i + j;                         break;                   }       printf("третий массив: \n");         printarray(c, 10);               return 0; }