Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.

Pascal

Varn:integer;BeginWrite('n = ');ReadLn(n);if n mod 2 = 0 then WriteLn('Не любит')else WriteLn('Любит')End.