Пожалуйста Сделайте программу

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.