Учу бэйсик, а надо сделать на паскале вот такую програмку

найти сумму n-членов арифметической прогрессии, первый член которой a, разность b     

край, печаль беда

program n1;var n:integer;a,b,s:real;beginwrite ('введите значения a, b, n')readln (a, b, n);s:=((2*a+(n-1)*b)/2)*n;writeln (s);end.P.S: Извините, что так долго. Просто я с телефона сижу.