Заданы первый член арифметической прогрессии а, разность прогрессии d и количество членов прогрессии k. Вычислить k-1 и к-ые члены арифметической прогрессии и сумму первых n членов Sn. Если Sn≤25, то вычислить процентное отношение первого и последнего членов арифметической прогрессии. Написать программу на языке Паскаль

Var

k, i:integer;

a, b, bk, d, s, p:real;

begin

write ('Первый член: ') ;

readln (a) ;

write ('Разность прогрессии: ') ;

readln (d) ;

write ('Число членов k: ') ;

readln (k) ;

bk:=a + (k-1) * d;

b:=bk-d;

s: = (a+bk) / 2*k;

if s<=25 then p:=a/bk*100;

writeln (k-1,' член: ', b) ;

writeln (k,' член: ', bk) ;

writeln ('Сумма: ', s) ;

if p>0 then writeln ('Первый составляет ', p,'% от последнего')

end.