Язык не указан, решение будет приведено на двух языках: наиболее популярном в школах Pascal и, на мой взгляд, незаслуженно считающемся "детским и непрофессиональным" BASIC (в примитивной его версии qBASIC). Как можно будет убедиться, в Бейсике программа получается даже короче и, я бы сказал, даже нагляднее..
<em><u>Pascal:</u></em>
var
x:integer;
begin
x:=1;
Writeln(' x y=4x-5');
while x<30 do
begin Writeln(x:2,4*x-5:6); x:=x+3 end
end.
<em><u>Результат выполнения программы:</u></em>
x y=4x-5
1 -1
4 11
7 23
10 35
13 47
16 59
19 71
22 83
25 95
28 107
<em><u>qBASIC:</u></em>
PRINT " x y=4x-5"
FOR x = 1 TO 30 STEP 3
PRINT x, 4 * x - 5
NEXT x
END
Результат выполнения программы:
x y=4x-5
1 -1
4 11
7 23
10 35
13 47
16 59
19 71
22 83
25 95
28 107
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
(SeqGen(ReadInteger,i->1/(10*(i+1)+2)).Sum+1).Println
end.
<u>Пример</u>
10
1.26596470171236
begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.
Без прелюдий, только основная часть программы:
While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET