Напишите программу в тетради и наберите на ПК, которая выводит рисунок из звездочек *

1)var k:integer;beginfor k:=100 to 999 do if k mod 17 = 0 then writeln(k);end.2)var k: integer;begink:=100;while k mod 17 <> 0 do inc(k);while k<999 do begin writeln(k); k:=k+17; end;end.Решение:102119136153...952969986