как выбрать значения в цикле в паскале

[Melok]

как в цикле for i:=1 to 100 выбрать определенные значения i
например для чисел от 1 до 100 если i=4,15,30,56,60 написать 1, если нет - 2

[Sibedir]

const
  Good = [4, 15, 30, 56, 60];
...
var
  i: Integer;
  s: String;
...
begin
  s := '';
  for i := 1 to 100 do
    if i in Good then s := s + '1'
    else s := s + '2';
...
end;

[madmot]

{.............................}
for i:=1 to 100 do
case i of
4,15,30,56,60:write("1");
else
write("2");
{.............................}

[Melok]

большое спасибо!!!

[VVk]

Я толко не совсем понимаю што значить последовательность i=4,15,30,56,60 еслы можеш наведи подробне...

сам не пробувалт но код приблизительно такой

const
  VLI: array [1..5] of integer = (4,15,30,56,60);
var
  i,j: integer;
  Rezult: array [1..100] of integer;{или булевий}
begin
  for I:=1 to 100 do
    for J:=1 to 5 do
      if i = VLI[j] then
        Rezult[i]:=1
      else
        Rezult[i]:=0;
end;

[puporev]

Решить эту задачу можно многими способами, но код от Madmota по моему самый удачный.