Пожалуйста, проверьте программу. Что то не так с форматным выводом - Pascal ABC

Формулировка задачи:

program nakoplenie;
var
s,x,y,p,z: real;
k1, k2, k3,k4,k: integer;

    function summa(k: integer): real;
    begin
    summa := abs(sin((sqr(k) / 1.5) - 2)) + 11.73 * cos(1.6 * k - 1)
    end;
 
    function proiz(var k: integer): real;
    begin
    proiz := 13.4 * cos(abs(k)) * sin(sqr(k) - 2.25);
    end;

  begin
   writeln('Введите номер варианта для определения k конечного для суммы и произведения ');
   readln(k2);
   k1:=1;
   s := 0;
   for k := k1 to k2+5 do  s := s +summa(k);
 
   p := 1;
   for k := k1 to k2+8 do  p := p *proiz(k);
   
   writeln('s=', s:2:2);
   writeln('p=', p:2:2);
 
    x := s;
    y := p;
    z := (5 * x) - (2 * y);
    writeln('z=', z:2:2);
 
  end.

ОКНО ВЫВОДА: Введите номер варианта для определения k конечного для суммы и произведения 13 s=9.24 p=-299426686126.04 z=598853372298.28 Почему он не хочет хвост меньше делать? Объясните пожалуйста. Подставляла разные числа.

Решение задачи: «Пожалуйста, проверьте программу. Что то не так с форматным выводом»

Листинг программы

   writeln('s=', s:1:1);
   writeln('p=', p:1:1);
 
    x := s;
    y := p;
    z := (5 * x) - (2 * y);
    writeln('z=', z:1:1);

Объяснение кода листинга программы

Код написан на языке Pascal ABC и выполняет следующие действия:

Выводит значения двух переменных s и p в формате строки, используя функцию writeln().
Присваивает переменной x значение переменной s и переменной y значение переменной p.
Вычисляет значение переменной z как разность между 5-кратным значением переменной x и 2-кратным значением переменной y.
Выводит значение переменной z в формате строки, используя функцию writeln().