Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / prog13

program prog13;
uses crt;
var b: boolean;
begin
 clrscr;
 b:=2+3>4;
 writeln(b);
 writeln(pred(b));
 readln;
end.