| Сьогодні | Разом | |
| Відвідувань | 195 | 5403778 |
| Авторізацій | 10 | 434260 |
| Користувачів | 5 | 2731 |
13. Boolean
var a: integer;
b: boolean;
begin
readln(a);
b := a > 0;
if b
then writeln('Положительное значение переменной a')
else writeln('Отрицательное значение или ноль')
end.
На картинке основатель математической логики Джорж Буль (1815-1864)