Даны три числа а,b и c выясните верно ли соотношение а

Var a, b, c:integer;

function sravnenie(a, b, c:integer):boolean;
begin
sravnenie:=false;
if a begin
 if b end;
end;

begin
writeln(Введи 3 числа);
readln(a, b, c);
if sravnenie(a, b, c) then writeln(Да) else writeln(Нет);
end.