Получить 20 чисел начиная с числа 3. 1,1,1,3,5,9,18...
в программе Паскаль

Так даже лучше, да

В приведенной последовательности ошибка, там не 18, а 17. // PascalABC.NET 3.2, сборка 1363 от 17.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a,b,c,d:integer;  (a,b,c):=(1,1,1);  Print(a,b,c);  for var i:=1 to 20 do begin    d:=a+b+c; Print(d);    (a,b,c):=(b,c,d)    end;  Writelnend.Результат1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329