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

var  k,i:integer;  a,b,bk,d,s,p:real;beginwrite('Первый член: ');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.