Question

решите задачу по информатике на Pascal

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=ReadReal2;
if a>b then write('>') else if a<b then write('<') else write('=');
end.