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

//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;}