8 задание, кто понимает в информатике хорошо, напишите пожалуйста.

на языке PascakABC подойдет?

Program NoName;var num: integer;    x, y: real; Begin readln(num);if (num>=10)and(num<=99)thenbeginx := trunc(num/10);y := (num/10-trunc(num/10))*10;writeln(x+y);writeln(x*y);writeln(y*10+x);end;end.