определите значеиие переменной k после выполнения следующего фрагмента программы

1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
   n:integer;
   s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что                 результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do 
   begin
   s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
   n:=n+1
end;
writeln(n)
end.

2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
   begin
   s:=exp(n)-1000*Ln(n);
   n:=n+1
   end;
writeln(n)
end.

#include "iostream" using namespace std; int main(){ int secound =0; int hh =0; int mm =0; int ss =0; int ch[5]; cin >> secound; hh = secound / 3600; mm = secound/60 - hh * 60; ss = secound - hh*3600 - mm *60 ; if(hh >=24){ int b = hh / 24; hh = hh - 24 *b; } ch[0] = hh; if(mm< 10){ ch[1] =0; ch[2] = ss; }else ch[1] = mm / 10; ch[2] = mm - mm / 10 * 10; if(ss< 10){ ch[3] = 0; ch[4] = ss; } else ch[3] = ss /10; ch[4] = ss - ss / 10 * 10; cout << ch[0] << ':' << ch[1] <