Отыскать среднее арифметическое всех положительных целых чисел от a до b

program zz1;

var a, b, r, i, k:integer; // задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры 1-ое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры 2-ое число

read(b);

for i:=a to b do

if i gt; 0 then begin r:=r + i;k:=k + 1;end; // проверяем условие, если число из диапазона положительное, то прибавляем его к сумме и считаем количество

if k = 0 then write( Таких чисел нет ) else write( среднее арифметическое всех положительных целых чисел от a до b = , r/k); //выводим ответ

end.