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

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