Program project2; {$ appype console} VARA, B, C, I: Integer; Begini: = 0; A: = 1; B: = 1; Writeln (1); Writeln (1); REPEATC: = A B; A: = B; B: = C; Writeln (C); Inc (i); Until I> = 38; Readln; End.
Program bubble_sort; {$ apptype console} const n = 10; var i: integer; function fibon (n: integer): integer; begin if n = 0 THEN FIBON: = 0; if n = 1 THEN FIBON: = 1; if N> 1 THEN FIBON: = Fibon (N-1) Fibon (N-2); End; BeginFor i: = 0 to 40 Dowriteln (Fibon (I)); Readln; End.
