Вот исправленная:
#pas
program baktery;
var
n,k,i,t:integer;
c:real;
begin
i:=0;
t:=0;
write('input K:');
readln(k);
write('input N:');
readln(n);
c:=k;
repeat
i:=i+1;
t:=t+1;
c:=c*0.75;
if t=3 then
begin
t:=0;
c:=c*2;
end;
until i=n;
k:=trunc(c);
writeln (k);
readln;
end.
