информатика!! помогите!!!заданы числа a и b. определить,эти числа одного либо различных

Program abc;
var a,b:real;
begin
writeln ('введите а');
readln (a);
writeln ('введите b');
readln (b);
if alt;0 and blt;0 then writeln ('числа 1-го знака');
if agt;0 and bgt;0 then writeln ('числа 1-го знака');
if alt;0 and bgt;0 then writeln ('числа разных символов');
if agt;0 and blt;0 then writeln ('числа разных символов');
readln;
end.