вычислить а^n где n-степень и задаётся с клавиатуры , а- случайным образом от 0 до 10

нужно на языке pascal

#include<iostream>using namespace std;int main(){ srand(time(0)); int a=rand()%10, n, otv=1; cin>>n; for(i=0;i<n;i++) {   otv*=a; } cout<<a; system("pause"); return 0;}