ДАЮ 50 БАЛЛОВ!!! ПОМОГИТЕ ПОЖАЛУЙСТА! ПРОГРАММИРОВАНИЕ! ФАЙЛ НИЖЕ.

Таблицы - в прилагаемом файле.Программы на паскале:1.var s,x:integer;begins:=7;x:=27;while s<=x do begin s:=s+3; x:=x-4; end;writeln('s = ',s,' x = ',x);end.Результат:s = 16 x = 152.var s,a:integer;begins:=0;a:=1;repeat s:=s+a; a:=a+1until not(a<=10);writeln('s = ',s);end.Результат:s = 553.var n,a,b,c,s,i:integer;beginreadln(n);a:=1;b:=1;s:=a+b;for i:=3 to n do begin c:=a+b; a:=b; b:=c; s:=s+c; end;writeln(s);end.Пример:733