Что делать проанализируйте а затем запишите и выберете верные ответы

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 w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

в клетке а1 - 8

              а2 - 80

              а3 - 72

              в1 - 20

              в2 - 2 

зеркало

коромысло

дупло

дуло

крыло