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