составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю

var n: byte; //Заводим переменную для числа.

sum: integer; //И для суммы.

begin //Начало.

for n := 20 to 60 do //Циклом проходимся по заданному диапазону.

if n mod 5 = 0 then //Если число кратно 5. 

sum := sum + n; //Прибавляем его к общей сумме.

writeln(\'Сумма кратных 5 чисел от 20 до 60 равна \', sum); //Выводим сумму.

end.