program SequenceNumbers;
vari: Integer;
beginfor i := 10 to 100 dobeginif (i = 10) or (i = 20) or (i = 45) or (i = 100) thenWriteln(i);end;end.
program SequenceNumbers;
var
i: Integer;
begin
for i := 10 to 100 do
begin
if (i = 10) or (i = 20) or (i = 45) or (i = 100) then
Writeln(i);
end;
end.