Ответ:

1

var i:integer;

begin

i:=17;

while i<=110 do

begin

writeln(i/17);

i:=i+1

end

end.

2

var i,s:integer;

begin

s:=0;

i:=10;

while i<=99 do

begin

s:=s+i;

i:=i+1

end;

writeln(s)

end.