Логический тип данных
Пусть ans - логическая переменная,
n - целая переменная.
В
результате выполнения оператора присваивания
ans := (n mod 2 =0)
переменной ans будет присвоено значение true при любом чётном n и false при нечетном.
program n_6;
var n: integer;
ans: boolean;
begin
writeln ('Определение истинности высказывания о чётности числа');
write ('Введите исходное число');
readln (n);
ans:= (n mod 2=0); // присвоить выражение
writeln ('Число ', n,' является четным - ', ans)
end.
Данная программа нам покажет, истина или лож, мы берем честное число, ели его делим и остаток 0, то у нас истина, т.е. число четное, делится без остатка.