Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
Смотря на кого ты будешь учиться/учишься.
Решение:
1) 1 килобит = 125 байт,
320*125=40000
2) 13 677 934/40000 = 341,94835 = 342 сек
Ответ: 342 секунды; 5 минут 42 секунды.
Var
x,s:real;
n,i:integer;
begin
write('Введите n и x: ');
readln(n,x);
for i:=1 to n do s:=s+cos(power(x,i));
writeln('y=',s)
<span>end.</span>