Напишите программы, которые в зависимости от введенного числа либо вычисляют функцию, либо сообщение, что функция не определена. y = 6/(x-3)

Program HAHA;
var y,x:integer;
begin
readln(x);
y:=6/(x-3);
if x=3 then 
writeln('функция не определена');
writeln('y=',y);
end.