[Pascal]Применение процедур в программе

[Uralomat]

Составить программу, которая выводит трёхзначные числа, сумма цифр которых делится на 7, при этом само число делится на 7.
Оформить процедурой(ами).

[Аватар]

Это идея, программку сделай сам

for i:=100 to 999 do
  if (((i div 100)+((i div 10) mod 10) + (i mod 10)) mod 7 = 0) and (i mod 7 = 0) then выводи

[newerow1989]

procedure z3;
var i:integer;
begin
   For i:=100 to 999 do
      if (((i div 100)+((i div 10) mod 10)+(i mod 10)) mod 7=0) and
         (i mod 7=0) then
         Writeln(i);
end;

begin
   z3;
   Readln;
end.