Logický typ (boolean)
var podmienka:boolean;
a,b:integer;
begin
podmienka:=a>b;
if podmienka then ...
...
end.
a možná náhrada
var a,b:integer;
begin
if a>b then ...
...
end.
A v praxi - vysvetli a odskúšaj.
uses Crt;
var x:integer;
h:boolean;
begin
write('Zadaj cele cislo: ');
readln(x);
h:=x < 10;
writeln('Je zadane cislo mense ako 10? ',h);
readln;
end.
Skús upraviť riešenie na porovnanie 2 načítaných čísel (je a>b? alebo a<>b ?)