string eingabe, julian, gregor, griech;
int jahr;


julian="kein";
gregor="kein";
griech="kein";
eingabe = EingabeVonFenster("Jahreszahl:");
jahr = GanzzahlWert(eingabe);
if (jahr % 4 == 0 )
	{
	julian="ein";
	if ((jahr % 4 == 0 && jahr % 100 != 0) || jahr % 400 == 0)
		{
		gregor="ein";
		}
	double rest = jahr % 900;
	if ((jahr % 4 == 0 && jahr % 100 !=0) || rest == 200 ||  rest == 600)
		{
		griech="ein";
		}
	}
AusgebenAufFenster("Das Jahr "+jahr+" ist... \n ..."+julian+" Schaltjahr nach julianischem Kalender. \n ..."+gregor+" Schaltjahr nach gregorianischem Kalender. \n ..."+griech+" Schaltjahr nach griechisch-orthodoxem Kalender");