prime number

program project1;
var
  num, i:integer;

begin
  writeln('Enter a number:');
  readln(num);
  for i:=0 to num do

  if (i = 2) or (i = 3) or (i = 5) then
  writeln(i,' is a prime number')

  else if (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0) or (i mod 7 = 0) or (i = 1)then
  writeln(i)

  else
  begin
    writeln(i,' is a prime number')
  end;

  readln;

end.