Пожалуйста Сделайте программу
Uses crt;var f,a,d,n,z:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число D');readln (d);writeln ('Введите число N');readln (n);writeln ('Введите число Z');readln (z);F:=(z*a+d*(n-1))/2;writeln('Ответ: ',f:2:1);end.