Написать программу которая находит сумму и произведение чисел от 5 до 50 с шагом 5

program space_del;

var m, s: integer;

p: real; / /произведение очень большое, тип integer не подходит

begin

m: = 0;

p: = 1;

repeat

m: = m + 5; / /числа с шагом 5

s: = s + m; / /суммирование

p: = p * m; / /произведение

//writeln (m, ' sum = ', s, ', product = ', p);

//для вывода промежуточных значений - снять / / с writeln ...

until m = 50;

writeln ('sum = ', s, ', product = ', p);

end.