Найти сумму чисел ряда каждый элемент которого определяется по формуле (i+5)/i и i изменяется от 1 до 20 с шагом 0.4 показать решение(по pascal)

Program stach; var i,s: real; begin i: =1; while i< =20 do begin s: =s+((i+5)/i); i: =i+0.4; end; writeln('s=',s); end.

Var  a,b,p,n,x,i: integer; begin writeln('сколько примеров будешь решать: '); readln(n); for i: =1 to n do   begin   a: =random(10)+1;   b: =random(10)+1;   write('сколько будет ',a,'+',b,'=');   readln(x);   if x=a+b then     begin     p: =p+1;     writeln('правильно');     end     else writeln('неверно');   end; writeln('число правильных ответов: ',p); if p=n then writeln('отлично, ты превосходно знаешь арифметику'); if (p< n) and (p/n> 0.75) then writeln('хорошо, ты неплохо знаешь арифметику'); if (p/n< =0.75) and (p/n> 0.5) then writeln('удовлетворительно, ты средне знаешь арифметику'); if (p/n< =0.5) and (p> 0) then writeln('плохо, ты не знаешь арифметику'); if p=0 then writeln('отвратительно, ты абслютно не знаешь арифметику'); end.можно сделать, чтобы не только на сложение, а на все 4 действия.

from random import randint

while True:

   print("Вгадай число")

   print("Я задумав число від 1 до 10")

   comp_num = randint(1, 10)

   print(comp_num)

   count = 0

   user_num = 0

   while comp_num != user_num:

       user_num = int(input("Ваш варіант: "))

       count += 1

       if comp_num < user_num:

           print("Я задумав менше число")

       elif comp_num > user_num:

           print("Я задумав більше число")

   print(f"Ви вгадали з {count} разу.")

   play_again = input("Бажаєте зіграти ще? (так/ні)")

   if play_again.lower() != "так":

       break

print("Дякую за гру!")