Найти среднее арифметическое всех положительных целых чисел от a до b (b>=a) Если таких чисел нет то вывести сообщение "Таких чисел нет"Программа на Паскале (net или abc)

program zz1;

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

begin

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

read (a);

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

read (b);

for i:=a to b do

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

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

end.