Решение задачи по вкладам (строку S:=S+0.02*S можно заменить на S:=1.02*S)
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.
Этот текст здесь только для того, что бы мой ответ пропустили.
Он использовался, чтобы чинить диски и повреждённые файлы. Поэтому ответ - A crashed disk rescuer (дословно спасатель поврежденного диска)
Нужно одновременно нажать клавиши Ctrl+Alt+Del