Witam,
mam problem z napisanym przez siebie kodem. Po jego uruchomieniu w kompilatorze, konsola wyłącza się pomimo umieszczenia na końcu kodu wiersza z readln(). Próbowałem też z repeat until keypressed ale też nie pomogło. Wklejam pierwotną wersję kodu w którym umieściłem zapętlenie aż do momentu naciśnięcia klawisza. Program wcześniej działał ale po jego zmodyfikowaniu pod zadanie kolegi program przestał działać jak było zamierzone. Myślę, że to kwestia jakiegoś błędu w kodzie ale nie jestem w stanie go samodzielnie znaleźć dlatego bardzo prosiłbym o pomoc. Załączyłem również zdjęcie zadania.
program moch_1;
var k: integer;
x: real;
eps,a,S: single;
l: char;
begin
repeat
writeln('Program obliczy przyblizona wartosc funkcji (1/((3k+2)*(3k+4)))*x^(3k+4)');
write('Podaj wartosc x: ');
readln(x);
write('Podaj przyblizenie z jakim ma byc obliczona wartosc funkcji: ');
readln(eps);
k:=0;
S:=(x*x*x*x)/8;
a:=(x*x*x*x)/8;
repeat
k:=k+1;
Writeln('k',k);
a:=((x*x*x)*(k+(4/3))*(k+(2/3)))/((k+(7/3))*(k+(5/3)))*a;
Writeln('a=',a);
S:=S+a;
Writeln('S=',S);
until
abs(a)<=eps;
writeln('Czy chcesz zakonczyc prace programu? Y/N');
read(l);
until
l='Y';
end.