работа с числами

[Tata4ka]

помогите пожалуйста решить задачу... она наверно простая, но мне очень сложно дается паскаль...(((

Найти все двузначные числа, сумма квадратов цифр которых кратна M.

[_-Re@l-_]

Ну я бы не сказал что она сложная:

Uses CRT;
Function Summa(X:Integer):Integer;
Var
     S:Integer;
Begin
        S:=0;
        While X>0 Do
        Begin
                Inc(S,X mod 10);
                X:=X div 10;
        End;
        Summa:=S;
End;
Var
     M,I:Integer;
Begin
        Clrscr;
        Write('M = ');
        Readln(M);
        For I:=10 To 99 Do
        If Summa(I) = M Then Write(I,' ');
        Readln;
End.

Проверил - вроде бы всё правильно.