составьте блок схему и программу для определения является ли значение функции y=a+b/a-b целым числом. Значение а и b вводятсяъс клав-ры.

program z1;var y,a,b:real;writeln('введите а и b');readln(a,b);if (a+b) mod (a-b)=0 thenwriteln('значение данной функции является целым числом')elsewriteln('значение данной функции не является целым числом');if a=b thenwriteln ('функция не существует');end.