program ArithmeticProgression;
var
a, d, k, n, i, Sn: integer;
kMinus1, kthTerm: integer;
firstTerm, lastTerm: integer;
percentage: real;
begin
write('Введите первый член прогрессии а: ');
readln(a);
write('Введите разность прогрессии d: ');
readln(d);
write('Введите количество членов прогрессии k: ');
readln(k);
write('Введите количество членов n: ');
readln(n);
kMinus1 := a + (k-1) * d;
kthTerm := a + k * d;
writeln('k-1-й член прогрессии: ', kMinus1);
writeln('k-й член прогрессии: ', kthTerm);
Sn := (2 * a + (n-1) * d) * n / 2;
writeln('Сумма первых ', n, ' членов прогрессии: ', Sn);
if Sn <= 25 then
begin
firstTerm := a;
lastTerm := a + (n-1) * d;
percentage := (lastTerm - firstTerm) / firstTerm * 100;
writeln('Процентное отношение первого и последнего членов прогрессии: ', percentage:0:2, '%');
end;
end.

Пример ввода:

Введите первый член прогрессии а: 1
Введите разность прогрессии d: 3
Введите количество членов прогрессии k: 5
Введите количество членов n: 10

Пример вывода:

k-1-й член прогрессии: 13
k-й член прогрессии: 16
Сумма первых 10 членов прогрессии: 55