Найдите 20-й член этой прогрессии и сумму первых 30 её членов.

Код программы:

var

a_1,d,s,a_20,s_30:real;

begin

write('Введите 1-й член последовательности: ');

readln(a_1);

write('Введите разность: ');

readln(d);

a_20:=a_1+d*(20-1);

s_30:=((...