Написать программу на паскале: для х=3, 11, 19, 27, … (всего 73 значения х) вычислить и напечатать y=sinx+1

var

i, x:integer;

begin

x:=3;

for i:=1 to 73 do

begin

writeln(sin(x)+1);

x:=x+8;

end;

end.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  SeqGen(73,3,x->x+8).Tabulate(x->sin(x)+1).Println(NewLine)
end.

Результат
(3,1.14112000805987)
(11,9.79344929652459E-06)
(19,1.14987720966295)
(27,1.9563759284045)
(35,0.571817330503849)
(43,0.168225257371402)
(51,1.67022917584337)
(59,1.63673800713914)
(67,0.144480021024678)
(75,0.61221836459057)
(83,1.96836446110019)
(91,1.10598751175116)
(99,0.000793165813646302)
(107,1.18478174456067)
(115,1.94543533402477)
(123,0.540096509310409)
(131,0.1883966128633)
(139,1.69608013122474)
(147,1.60904402188329)
(155,0.126688017225352)
(163,0.645089824155065)
(171,1.97659086794357)
(179,1.07072216723899)
(187,0.00282897660785097)
(195,1.21945466799406)
(203,1.93330970016696)
(211,0.508952146149537)
(219,0.209585258506819)
(227,1.72105859707063)
(235,1.58058664098964)
(243,0.109990651143723)
(251,0.678406139707496)
(259,1.98359318394668)
(267,1.03536817725618)
(275,0.00611467408027389)
(283,1.25385251979023)
(291,1.92001422549596)
(299,0.47842327838163)
(307,0.231764635762553)
(315,1.74513326455741)
(323,1.55140153386739)
(331,0.0944088518029327)
(339,0.712125551491514)
(347,1.98936263217831)
(355,0.999969855646641)
(363,0.0106461398305572)
(371,1.28793218456003)
(379,1.9055655749933)
(387,0.448548171885085)
(395,0.254906944275786)
(403,1.76827395771179)
(411,1.52152528208153)
(419,0.0799621499383943)
(427,0.746205794496806)
(435,1.9938919810239)
(443,0.96457157182102)
(451,0.0164176939717596)
(459,1.32165094574031)
(467,1.88998185906867)
(475,0.419364273092607)
(483,0.278983176722363)
(491,1.79045167123434)
(499,1.49099533350029)
(507,0.0666686535173281)
(515,0.780604151435442)
(523,1.9971755532499)
(531,0.929217695142592)
(539,0.0234221022497116)
(547,1.35496653913623)
(555,1.87328261085979)
(563,0.390908162054621)
(571,0.303963155167414)
(579,1.81163860685574)