Question

2.     Напечатать все составные
числа из диапазона [2, n].

Answer 1

program p1
const
var
s:string
c;byte
begin
end else
write (s)
end
readln
i:integer
readin (s)