помогите пожалуйста!..

Question

Составьте программу для вычисления S. 
Найти значение выражения S=(a+b)/2*n, для номеров n:=5 до k, с шагом 0,8. 
Значения переменных а, b, k ввести с клавиатуры.

паскаль

Владимир Гогонов · Accepted Answer

var 
 a, b, k, n, s: real; 
begin 
 write('a b k? '); 
 readln(a, b, k); 
 n := 5; 
 while n <= k do 
 begin 
 s := (a + b) / 2 * n; 
 writeln('n: ', n:0:1, '; s: ', s:0:2); 
 n := n + 0.8; 
 end; 
end.

Виктория Назарова · Answer

какой язык програмирования ?