Вопрос Можете написать эту программу, но на Paskal?

#include

int main() {
int tot=0,sum=0;
for (int i1=0;i1<10;i1++) {
for (int i2=0;i2<10;i2++) {
for (int i3=0;i3<10;i3++) {
for (int i4=0;i4<10;i4++) {
if (i1==i2+2 || i1==i3+2 || i1==i4+2 ||
i2==i1+2 || i2==i3+2 || i2==i4+2 ||
i3==i1+2 || i3==i2+2 || i3==i4+2 ||
i4==i1+2 || i4==i2+2 || i4==i3+2) {
tot++;
sum+=i1*1000+i2*100+i3*10+i4;
}
}
}
}
}
printf("%d %d",tot,sum);
return 0;
}