Написать программу Паскаль, найти среднеарифмитическое четырехзначного числа

//Sorry I know only C++ language#include<iostream>using namespace std;int main(){ char a,b,c,d,a2,b2,c2,d2; cin>>a>>b>>c>>d; a2=a-48; b2=b-48; c2=c-48; d2=d-48; cout<<(a2+b2+c2+d2)%4; return 0;}