Составить программу, определяющую результат гадания на ромашке - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «Составить программу, определяющую результат гадания на ромашке»

Листинг программы

uses crt;
var i,n: byte;
 
BEGIN
clrscr;
write('Vvedite kol-vo lepestkov: ');
readln(n);
if (i mod 2 = 0) then writeln('Ne Lubit')
else writeln('Lubit');
end;
 
repeat until keypressed;
END.

Объяснение кода листинга программы

В начале кода используется директива uses, которая указывает на использование библиотеки crt.
Переменные i и n объявлены как byte, что означает, что они могут принимать значения от 0 до 255.
Функция clrscr очищает экран, чтобы начать новый раунд гадания.
Пользователю предлагается ввести количество лепестков ромашки, которое будет использоваться в программе. Это число сохраняется в переменной n.
Программа проверяет, делится ли число i на 2 без остатка. Если это так, то выводится сообщение Не нравится. В противном случае выводится сообщение Нравится.
Программа повторяется до тех пор, пока пользователь не нажмет клавишу.