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

Question

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

---

Answer 1

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