program matching;
uses crt;
var x, y : integer;
begin
writeln;
write('Input value X = ');
read(x);
write('Input value Y = ');
read(y);
if x - y = 0 then write ('X = Y')
else
write('X <> Y');
readkey;
end.
Последний раз редактировалось merax; 19.05.2008 в 16:09..