Паскал-задачи(помощ)

[tinsyyyy]

Много ви моля някой да ми помогне, защото отсъствах доста дълго от училище и ми е мътна Индия.

Зад.1: Да се състави програма която въвежда от клавиатурата цяло положително осемцифрено число. Програмата да пресмята и извежда средноаритметичната стойност на цифрите на въведеното число.

Благодаря ви предварително!!

[Реклама]

[Chacho]

program zad1;

var chislo, SA, ostatyk : integer ;

begin

begin

write('Vuvedete osemcifreno chislo:');
readln(chislo);

while (chislo<9999999) or (chislo>100000000) do
begin
writeln;
writeln('Chisloto trqbva da e osemcifreno');
write('chislo:')
readln(chislo);
end;

SA:=0

repeat
begin
SA:= SA + chislo mod 10;
chislo:=chislo div 10;
end;
until (chislo div 10 = 0);

ostatyk:= SA mod 8;
ostatyk:= osatyk*125;

SA:=SA div 8;

if ostatyk = 0 then
writeln('SA=',SA)
else
writeln("SA=',SA,".",ostatyk);

writeln('Za izhod ot programata vuvedete ne6to');
readln;

end.

Малко тромава стана, но пък трябва да работи. Не съм я компилирал и може да има грешки, но ми се занимаваше с нещо и затова я написах. Ако има нещо неясно - питай!