1. Вычислить сумму членов последовательности –1, 3, 7, 11, …, меньших числа Х.
2. Составить программу, позволяющую вводить целые числа до тех пор, пока не будет введено число, кратное 3, и вычислить количество введенных чисел.
3. Среди членов последовательности 2, 2+n, 2+2n, 2+3n, … найти и вывести первое число, большее М.

Объяснение:

Program xd;

var a, x: integer;

begin

Writeln ('Задайте значение X');

readln (x);

a := - 1;

while a < x do begin

a := a + 4;

end;

writeln (a);

end.

Program xd;

var a, b: integer;

begin

b := 0;

while a mod 3 <> 0 do begin

readln (a);

b := b + 1;

end;

writeln ('Количество введённых чисел: ', b);

end.

Program c;

var a, n, m: integer;

begin

writeln ('Введите значение n, m');

readln (n, m);

if m < 2 then

writeln ('2 > n')

else

a := 1;

while n < m do begin

n := 2 + a * n;

a := a + 1;

end;

writeln (n ,'>', m );

end.