По информатике . запишите в pascale 4. дано целое число а. определить делиться ли число а на 3. (используем метод последовательного вычитания чисел). 5. дано целое число а. определить остаток от деления числа а на 3. (используем метод последовательного вычитания чисел).

Работает при условии, что А - не отрицательное число:

Var A:integer;
Begin
Write('A = ');
Read(A);

While A >0 do
   Begin
   A:=A-3;
   End;

if A=0 then Write('А кратно трём')
else Write('А не кратно трём')
End.

Var
A:integer;
Begin
Write('A = ');
Read(A);

While A >3 do
   Begin
   A:=A-3;
   End;

WriteLn('Остаток от деления А на 3: ',A);
End.