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

Var s,i : Integer;

не туда написал )

Фура, произведение таких чисел не влезает в тип Integer.

К тому же у Вас не произведение чисел, а домножение на 5.

Проглядел... вместо 5 нужно было i поставить. Когда запускал выдало вполне адекватный ответ, потому про тип и не думал даже.

var sum,pro,i:integer;begin    i:=5;    sum:=0;    pro:=1;    while i<=50 do begin        sum:=sum+i;        pro:=pro*5;        i:=i+5;   end;   writeln('Сумма = ',sum,', Произведение = ',pro); end.

Var s,p : BigInteger;  i : Integer;Begin  p:=1; s:=0;  For i:=1 to 10 do  Begin    s:=s+i*5;   p:=p*i*5;  end;  Writeln('Сумма: ',s);  Writeln('Произведение: ',p);end.