Var a1, d, n, sr: real;
begin
write('Введите a1, d>> '); {тут при запуске программы введешь свои значения,9 и 3}
read(a1, d);
n:=15;
sr:=a1+d*(n-1);
writeln(sr);
end.
Задание 3
var a1, d, n, sr: real;
begin
write('Введите a1, d,n ');
read(a1, d,n);
sr:=a1+d*(n-1);
writeln(sr);
end.