Зашифровать пословицу о труде

ответ:2 6 9 без

20 18 21 5 1 труда

15 6 не

3 29 13 16 3 10 26 30 выловишь

10 и

18 29 2 12 21 рыбку

10 9 из

17 18 21 5 1 пруда

Объяснение:

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.