Сделать программу на pascal, если a> b, то найти y=a/b, иначе найти y=a*b

Program wk;
var a,b,y:real;
begin
 readln(a,b);
 if a>b then y:=a/b else y:=a*b;
writeln(y);
end.