Возьмем два числа X и Y.
program FiveRost;
var x,y: integer;
begin
writeln('vvedi x,y');
readln(x,y);
if x=y then writeln('chisla ravny') else writeln('chesla ne ravny');
end.
