Перевести с С++ на паскаль. #define _CRT_SECURE_NO_WARNINGS#include #include #define SIZE 6int main(){ int a[SIZE][SIZE]; // матрица связей int d[SIZE]; // минимальное расстояние int v[SIZE]; // посещенные вершины int temp, minindex, min; int begin_index = 0; system("chcp 1251"); system("cls"); // Инициализация матрицы связей for (int i = 0; i 0) { temp = min + a[minindex][i]; if (temp < d[i]) { d[i] = temp; } } } v[minindex] = 0; } } while (minindex < 10000); // Вывод кратчайших расстояний до вершин printf("\nКратчайшие расстояния до вершин: \n"); for (int i = 0; i = 0; i--) printf("%3d ", ver[i]); getchar(); getchar(); return 0;}