программа с циклами с параметром

[Ananim-Pbl6ak]

все исправил но всеравно теперь когда вводишь число коноторое некратно, просто вниз курсор спускается и все, вставил пустой readln

[vovk]

там где я весь код привёл я подправлял проверте всё ли так же
24 пост

[Ananim-Pbl6ak]

большое спасибо заработало
з.ы. не на програмиста я учусь)))

[Ananim-Pbl6ak]

Program Laba2;
{*****}
Var chislo,A,PropuskCifr:Integer;
Flag:Boolean;
begin
chislo:=(5040+(PropuskCifr*100)+Pro puskCifr)
Write ('Введите целочисленный дилитель : ');
Readln (A);
write('Числа заданные маской 5*4* кратные ',A,' - ');
Flag:=False;
for PropuskCifr:= 0 to 9 do
if (5040+(PropuskCifr*100)+PropuskCifr ) mod A=0
then
begin
write ('',(5040+(PropuskCifr*100)+Propusk Cifr),' ');
Flag:=True;
end;
if not Flag
then writeln ('Чичла ненайдены ');
readln;
end.


вот задали теперь в этой же программе заменить (5040+(PropuskCifr*100)+PropuskCifr ) переменной chislo, только ни как не могу правильно поставить, знаю что присваивать надо где то в цикле а где точно не знаю помогите плз

[Sm1Le]

chislo:=(5040+(PropuskCifr*100)+PropuskCifr);
if (5040+(PropuskCifr*100)+PropuskCifr) mod A=0
.....

chislo:=(5040+(PropuskCifr*100)+PropuskCifr);
write ('',(5040+(PropuskCifr*100)+PropuskCifr),' ');


......

это ?

[Ananim-Pbl6ak]

если так ставишь то программа не работает