Помогите составить программный код на PascalABC.NET

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018

begin

 var (a, b, c) := ReadInteger3('a,b,c-gt;');

 var m := (a + b * b) / c;

 var k := round(m) mod 3;

 case k of

   0: Println('y=e**(m+c)');

   1: Println('y=Ln(a/b)');

   2: Println('2y=sqrt(абс((a+b)**2+c))');

 end;

end.