program Quersumme;
var
   I: integer;
begin
   I:=253687434;
   writeln('Quersumme: ', qsum(i));
   writeln('Iterative Quersumme: ', iqsum(i));
   writeln;
   writeln('Alterniernde Quersumme : ',aqs(i));
   writeln('Iterative Alterniernde Quersumme : ',iaqs(i));
   writeln;
   if iaqs(i)=0 then begin
   writeln(i,' ist durch 11 teilebar')
   end
   else begin
   writeln(i,' ist NICHT durch 11 teilebar')
   end;
end.