Здесь скорее всего будет две блок схемы: одна для main, другая для move
Рекурсия будет изображаться как вызов подпро
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.
Поскольку код семибитный, то 1 символ занимает 7 бит, отсюда:
2000 символов*7 бит=14000 бит/8 (в 1 байте 8 бит) = 1750 байт
<u>Ответ: 1750 байт</u>