Дана числовая последовательность: 1,4,7,10, какое число состоит на 20м месте? а) 58 в) 59 с) 60 д) 61

Var a,i:integer;
begin
a:=1;
for i:=1 to 20 do
  a:=a+3; 
 writeln(a); 
 end.

ответ: Д

Через формулу энного члена арифм. прогрессии:

const
  a = 1;
  b = 4;
  n = 20;

var
  c, d: real;

begin
  d := b - a;
  c := a + (n - 1) * d;
  writeln(c);
end.