Multiplos em Pascal

[Visitante: williamtelcom]

Olá, gostaria de uma ajuda apenas para encontrar o calculo deste algoritmo onde tenho que faze-lo mostrar os multiplos:

Program Multiplos;

var n,x,y,i :integer;

Begin

write('Escreva o início do intervalo: ');

read(x);

write('Escreva o fim do intervalo: ');

read(y);

write('Escreva o número que gostaria de saber seus multiplos dentro deste intervalo: ');

read(n);

for i:=x to y do

begin

if x+1 mod n =0 then

writeln (i, 'são multiplos deste número.');

end;

End.

Desde já agradeço!!

[viniciusbmatos]

for i:=x to y do
  begin
  if [B]i[/B] mod n =0 then
  writeln (i, 'são multiplos deste número.');
  end;

Corrija...

[Visitante: williamtelcom]

for i:=x to y do
  begin
  if [B]i[/B] mod n =0 then
  writeln (i, 'são multiplos deste número.');
  end;

Corrija...

Brigadão vinicius, depois que você mostrou foi q percebi o erro, valewww!!

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.