Просто, если логически подумать, то
<em>Белов -рыжеволосый</em>
<em>Чернов -беловолосый</em>
<em>Рыжов- черноволосый</em> :)
<u><em>Называется папкой .
............................................</em></u>
Где числа и к чему строить блок-схему ааааааа??!!??!!!?!
Program z1;
var y,a,b:real;
writeln('введите а и b');
readln(a,b);
if (a+b) mod (a-b)=0 then
writeln('значение данной функции является целым числом')
else
writeln('значение данной функции не является целым числом');
if a=b then
writeln ('функция не существует');
end.