15 ! дана такая хрень: 1+2+5+8+ то есть, прибавляем предыдущее число. пользователь вводит сколько должно быть чисел в ряду, а программа должна посчитать сумму. напишите в паскале, !

Var a,b,c,s,n,i: integer; begin readln(n); b: =1; for i: =1 to n do   begin   c: =b+a;   s: =s+c;   a: =b;   b: =c;   end; writeln('s=',s); end.

или это

const  

  maxm=100;

var

  a: array[1..maxm] of real;

  temp,i,max: real;

begin

  readln(m);

  for i : = 1 to m do

    read(a[i]);

  readln;

  max: =a[1];

  for i: = 1 to m do

    if a[i]> max then  

    begin  

      max : =a[i];

      temp: =i;

    end;

  a[temp]: =a[1];

  a[1]: =max;  

end.

#include < iostream> using namespace std; int main() {     int num = 0;     cout < < "enter nums: " < < endl;     cin > > num;     int min = num;     while(num ! = 0) {           if(num < min) {               min = num;           }           cin > > num;     }     cout < < endl < < "min: " < < min < < endl;     return 0; }