Question

elaborati un program de tipul de date boolean

Answer 1

Program Augustin;
var
a,b:integer;
x:boolean;
begin
Writeln('Introdu 2 numere');
readln(a,b);
if a>b then
x:=True;
if a<b then
x:=False;
if a=b then
x:=True;
Writeln('Rezultatul= ',x);
readln;
end.